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Sovente chi deve affrontare col calcolatore elaborazioni complesse o raccolte di dati 
strumentali rimanda ad una fase successiva la visualizzazione in grafici dei dati ottenuti. Il 
programma FP.PLOT serve proprio per questa seconda fase di lavoro in quanto realizza 

grafici da dati memorizzati su disco. — 


di Adriano Baracco 


Le routine in linguaggio macchina 


È P.PLOT comprende un programma BASIC 
che svolge quasi tutto il lavoro e due routine 
in linguaggio macchina: PRINT3*5 e FP.STORE. 
La prima delle due routine, abbastanza classica, 
permette di scrivere sulla pagina grafica dell'Ap- 
ple. Questa routine però si differenzia da quasi 
tutte le altre per l'uso di caratteri compresi in una 
matrice di tre punti per cinque. La scelta di que- 
ste dimensioni ridotte è dettata dall'esigenza di 
riservare il maggior spazio possibile al grafico vero 
e proprio pur mantenendo la possibilità di scriver- 
via lato i valori di scala. La routine viene chiama- 
ta con una normale call cui segue dopo i due 
punti che separano le istruzioni in BASIC il coman- 
do di stampa che può essere o “PRINT” 0 “XPRINT”; 
la differenza consiste nel fatto che “XPRINT” scrive 
ogni punto del carattere col colore complemen- 
tare a quello già presente sullo schermo. Quindi, 
per esempio, scrivendo due volte il medesimo 
carattere nella medesima posizione col coman- 
do “XPRINT” il carattere viene prima scritto e poi 
cancellato. Il testo da scrivere che deve seguire il 
comando “PRINT” o “XPRINT” può essere di tre tipi: 
1) racchiuso tra ‘ (virgolette) come per un nor- 
male print del BASIC; 
i rappresentato da una variabile alfanumerica 


3) racchiuso tra ‘ (apostrofi). 
In questo ultimo caso i valori intemi agli apostrofi 
devono essere numerici (numeri od espressioni) e 
se sono più di uno devono essere separati da 
virgole. Questi valori vengono considerati come 
codici ASC e la routine stampa i relativi caratteri. 
Il testo non può essere più lungo di 70 caratteri 
(buffer di una riga), se questa condizione non 
viene rispettata il programma segnala errore nel 
caso di testi tra virgolette od apostrofi o scrive solo 
i caratteri contenibili nel buffer se iltesto è rappre- 
sentato da una variabile alfanumerica (questo 
per evitare di dover ridurre la variabile stessa alle 
dimensioni giuste). Sempre nel limite dei settanta 
caratteri il testo può essere composto da più parti 
unite dal ‘segno + (più). Infine in fondo al testo, 
separate da virgole, si possono indicare le coordi- 
nate del primo carattere (X.Y); se le coordinate 
non vengono indicate la routine scriverà iltesto di 
seguito all'ultimo carattere scritto in precedenza. 
A questo proposito bisogna ricordarsi che il pro- 
gramma non testa durante la stampa se le coor- 
dinate vanno oltre i limiti della pagina grafica e 


a |) so. 


questo può ovviamente creare dei problemi se 
non si calcola preventivamente la lunghezza del 


he] 


a rallentare in misura notevole la routine). 
10; 10: ana de 
(oppure unae mbinazione di questi modi come 


testo (ovviare a questo inconveniente porta però 
Riassumendo: se per esempio si vuole scrivere 
incominciando dal punto 10,10 la frase “prova 
stampa” con 

uen nOi 
1) CALL-28079: PRINT “PROVA STAMPA”, 10, 10 
"i "n = “PROVA STAMPA": CALL-28079: PRINTA$, 
3) CALL-28079: PRINT' 80, 82, 79, 86, 65, 32, 83, 84, 
65, 77, 80, 65’, 10, 10 
ad esempio: CA ERRO FARA, 
65, 77, 80, 65, 10, 10). ft 


Ovviamente gli stessi comandi valgono per 
“XPRINT”. È ammessa, inoltre, la notazione sinteti- 
ca “?" per “PRINT” e “X?” per “XPRINT”. 

Il set di caratteri occupa complessivamente 
256 byte per un totale di 128 caratteri (2 byte per 
carattere) e comprende i 96 caratteri ASC (codi- 
ci da 320 127) più 32 caratteri speciali (codici da 
0 a 31), di cui i primi dieci sono usati dal program- 
ma per la realizzazione dei grafici per simboli. | 
caratteri sono definiti partendo dal primo punto 
in alto (bit 0 del primo byte) per colonne verticali 
(ultimo punto = bit 6 del secondo byte). 

Tutte queste spiegazioni sono necessarie solo per 
chi eventualmente voglia usare la routine al di 
fuori del programma in quanto all'interno di esso 
la routine è gestita automaticamente. 

La seconda routine serve invece per tradurre un 
numero in virgola mobile in una stringa di 7 carat- 
teri e, ovviamente, per la traduzione inversa. Ciò 
permette di memorizzare su disco i dati FP in file di 
testo ad accesso casuale di 8 byte (7 + il retum) 
con un considerevole risparmio di memoria se si 
pensa che un dato FP può occupare anche 16 
byte (+XXYXKXKKXXXE+XX). I numeri FPoccupano 
in applesoft 5 byte da 8 bit ciascuno, il DOS però 
non memorizza nei file di testo l'ottavo bit e quindi 
i byte devono essere ridotti a 7 bit. Anche così 
rimane tuttavia il problema di valori come il 
CHR$(4) che viene considerato un comando 
DOS o del CHR$(0) che non esiste. Ponendo ad 1 
il settimo bit anche questo secondo problema è 
risolto ma i byte necessari per codificare un nu- 
mero FP passano da 5 (di tipo XXXXXXXX) a 7 di 
tipo (ODIA). 

Per operare la trasformazione da FP a stringa è 
sufficiente chiamare la routine con la solita call 
seguita (dopo i due punti) dal nome della varia- 
bile alfanumerica in cui va memorizzata la strin- 
ga, dal segno = (uguale) ed infine da una varia- 
bile o da una espressione numerica (es. CALL- 
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27367: AA$ = 5XSIN(3)X1). Analogamente perla 
trasformazione inversa alla CALL deve seguire il 
nome della variabile FP, il segno = ed infine il 
nome della variabile alfanumerica. Nel caso di 
conversione da FP a stringa, poiché la routine 
sostituisce i valori ORIGINALI della stringa con 
quelli calcolati, è necessario che la variabile alfa- 
numerica contenga già sette caratteri (occorre 
cioè “dimensionare” la variabile con un coman- 
do del tipo AA$ = “1234567”, incui ovviamente la 
stringa di 7 caratteri può contenere qualsiasi 
messaggio). Qualora la stringa sia di lunghezza 
diversa da quella richiesta la routine interrompe- 
rà il programma con il messaggio di errore 
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“STRING TOO LONG”. | messaggi di errore delle 
due routine in linguaggio macchina sono facil- 
mente distinguibili da quelle BASIC perché ven- 
gono visualizzate in modo diverso. 

Per quanto conceme il funzionamento delle due 
routine questo è spiegato nel listato commentato 
ottenuto con l'Assembly LISA 2.0. 

Chi non possiede il LISA può comunque copiare i 
valori esadecimali che sono riportati in tabella 
con i valori di somma che servono per controllare 
se l'impostazione è stata corretta (ad esempio: 
dopo aver impostato i valori di FP.STORE da $9519 
a $95FF si calcola can il solito ciclo BASIC “S=0: 
FOR 1=—-27367 TO -27137:$= $+ PEEK(1): next”il 


Figura 1 - Esempi di gra- 
fici: per punti, per sim- 
boli, per linee. 


1984 © Bit - 3 


Seguito figura |. 
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valore della somma ($)che deve risultare uguale 
a 231; in caso contrario si sono verificati errori di 
copiatura). 

Il programma carica le due routine come un uni- 
co file e quindi una volta inseriti i valori delle due 
routine e della tabella dei caratteri da $9251 a 
$95ff si deve memorizzare il tutto su disco con il 
comando DOS “BSAVE FP.PLOT.BIN, A$9251, L$3A- 
F“.È comunque conveniente registrare i due pro- 
grammi anche separatamente con i comandi 
“BSAVE FP.STORE,A$9519,L$EF"" e ‘“BSAVE 
PRINT3*5, A$9521, L$2C8”. La routine FP.STORE 
dovrà infatti essere usata per la creazione dei file 
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dati. La memoria complessivamente usata dalle 
due routine, dalla tabella dei caratteri e dal buf- 
fer della routine di PRINT va da $9206 a $95FF. 
L'HIMEM viene settato quindi a $9205 (-28155). 
La memoria è così distribuita: 

$9206-$9250: buffer + variabili di PRINT 3*5 
$9250-$9418: PRINT 345% 

$9419-$9518: TABELLA DEI CARATTERI 
$9519-$95FF: FP.STORE 

Nella mappa in figura 4 sono riportati anche i 
valori decimali. 

Per i programmi che usano solo la routine FP.STO- 
RE (quelli di creazione file dati) l'himem deve 
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essere fissato al valore $9518 (-27368). 


l’uso del programma 


Alcune convenzioni per le fasi di input vengono 
rispettate per tutto il programma: 
1) quando il cursore si trova tra parentesi quadre 
la risposta viene accettata con un GET e quindi 
non occorre premere il RETURN; 
2) al termine di ogni ciclo di risposte il program- 
ma chiede conferma dei dati impostati; 
3) quando ad una richiesta di un dato si risponde 
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con il RETURN il programma interpreta la risposta 
come una conferma al valore già posseduto da 
quel dato. Il RETURN viene quindi accettato solo 
se il programma ha già avuto in precedenza una 
risposta a quella richiesta (e la risposta viene con- 
fermata) oppure se conosce già - perché lo ha 
calcolato - il valore del dato (valore che l'’opera- 
tore non intende cambiare). 


Le opzioni 


La prima serie di opzioni viene presentata dal 


Figura 2 - Esempi di gra- 
fici: con griglia e assi, 
solo con griglia, solo con 
assi. 
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Figura 3- Tabella dei co- 
mandi disponibili. 


Figura 4 - Mappa di me- 
moria del programma. 
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programma dopo l'input del nome delle curve (i 
file dati). A questo proposito, se durante l'input si 
verifica un errore, battendo al posto del nome 
della curva il CTRL-E e il RETURN, l'operatore potrà 
riscrivere il nome dell'ultima curva impostata. Ad 
esempio, se al quarto nome ci si accorge di aver 
sbagliato l'impostazione del secondo file, si pro- 
cede così: 

1) CTRL-E RET 

2) CTRL-E RET 

3) (correzione) RET 

4) RET 
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In ogni caso, la fase d'input si conclude con la 
richiesta di conferma di tutti i dati impostati. 

Le opzioni cui ho poco sopra accennato sono: 
(G) GRIGLIA: permette di sovrapporre al grafico 
un reticolo di riferimento ai valori di scala 

(S) ASSI IN SCALA: permette di scegliere per i 
valori di scala tra il formato +XXE+XX (in cui ogni 
valore è in notazione esponenziale, a scapito del 
numero di cifre) ed il formato + XXXXXX (in cui 
tutti i valori sugli assi sono moltiplicati per uno 
stesso esponente indicato per la X dopo il primo 


valore a sinistra e per la Y sotto il primo valore in 
alto). Questa seconda notazione, che utilizza sei 
cifre significative, è usata quando questa opzio- 
ne ($) è attivata. 

(R) REGISTRA MAX/MIN: quando questa opzio- 
ne è ON il programma - trovati i massimi ed i 
minimi di una funzione - li registra al fondo del file. 
(A) DISEGNA GLI ASSI: segna gli assi cartesiani 
(origine in 0,0) 

Seguono tre opzioni alternative che permettono 
anche di uscire da questa fase di input (vanno 
quindi selezionate dopo aver scelto le precedenti 
opzioni). Per distinguere queste opzioni dalle pre- 
cedenti (che sono ad interruttore) l'alternativa 
non è posta tra lettere ma tra numeri: 

(1) GRAFICO PER PUNTI 

(2) GRAFICO PER LINEE 

(3) GRAFICO PER SIMBOLI 

Nei primi due casi, al termine della realizzazione 
del grafico, l'operatore può numerare le curve. | 
simboli della terza opzione sono i primi dieci ca- 
ratteri del set di PRINT 3x5 (dieci è il numero 
massimo di curve disegnabili contemporanea- 
mente). 

Scelte le opzioni l'operatore può impostare una 

intestazione per il grafico (massimo 55 caratteri) 
e una intestazione per gli assi (massimo tre carat- 
teri per ogni asse). Per saltare questa fase è suffi- 
ciente rispondere con un RETURN ai tre input. Se 
invece si imposta un'intestazione di lunghezza 
maggiore di quella consentita il programma farà 
lampeggiare una freccia ( ) sotto l'ultimo ca- 
rattere accettabile: premendo RETURN il pro- 
gramma userà come intestazione il messaggio 
dall'inizio del messaggio stesso fino alla freccia 
lampeggiante. 
A questa fase segue la ricerca dei minimi e dei 
massimi della curva. Se questa è già stata fatta in 
precedenza con l'opzione R attiva il programma 
si limiterà a leggere i massimi ed i Minimi su disco. 
Trovati tutti gli estremi delle curve il programma - 
dopo averli scritti in tabella - chiede all'operatore 
se intende cambiarli. In caso affermativo vengo- 
no richiesti i nuovi estremi. Come al solito, qualora 
l'operatore non voglia cambiare un estremo, de- 
ve rispondere con il RETURN. È possibile, inoltre, 
rispondere al primo input (valore minimo di x) 
con una C seguita dal numero di una delle curve 
(esempio C4 per la curva n.r0 4), il programma 
allora userà come estremi quelli della curva indi- 
cata. Stabiliti gli estremi, il programma procede 
alla realizzazione del grafico. 

Terminato il grafico, se si sono scelte le opzioni 
“grafico per punti” (1) o “perlinee” (2), l'operato- 
re può numerare le curve rispondendo affermati- 
vamente alla relativa richiesta. 

Viene in questo caso presentata la pagina grafi- 
ca con un cursore lampeggiante. L'operatore 
può muovere il cursore lungo la prima curva pre- 
mendo le due frecce della tastiera; raggiunto il 
punto in cui si intende numerare la curva, il RE- 
TURN rende operativa questa opzione. Una volta 
numerata la curva, premendo ESC si passa alla 
curva successiva. Il programma prima di passare 
alle curve successive chiede conferma facendo 
lampeggiare la scritta “OK?” ed attendendo la 
risposta (S 0 N). In caso di risposta negativa il 
cursore torma a lampeggiare sull'ultima curva 
considerata. Qualora il punto in cui il cursore si 
trova sia fuori scala il programma fa lampeggiare 


O: E 
una F. Esaurite le curve il programa darti lane. 


peggiare la scritta ESC per segnalare all'operato- 
re la fine del lavoro; ESC fa uscire in modo testo 
(questa operazione è standard tutte le volte che, 


terminato un lavoro, il programma deve tornare. 


in modo testo). i 
A questo punto si presenta un nuovo menu di 
operazioni: 
1) REGISTRA IL GRAFICO: chiede il nome del grafi- 
co e lo registra su disco; P 
2) ALTRE CURVE: riparte dall'input del nome delle 
curve da disegnare; 

3) CAMBIA LA SCALA: riscrive la tabella degli 
estremi delle curve, ponendo in inverso i massimi 
ed i minimi globali; in fondo alla tabella scrive gli 
ultimi estremi usati per il disegno e passa all'input 
dei nuovi; 

4) CAMBIA TIPO DI GRAFICO: torna all'input della 
prima serie di opzioni; 

5) SCRITTE: la descrizione nel paragrafo successi- 


VO; 
6) FINE. 
Possibilità di scrittura 


Con l'opzione SCRITTE (5) si accede ad una 
serie di funzioni di scrittura diretta sulla pagina 
grafica. ll programma si dispone in modo testo 
con come cursore una M lampeggiante. Ciò si- 
gnifica che ci si trova in modo “MUOVI” (vedi 
tabella). Premendo le lettere |, J, K, M ci si può 
spostare col cursore rispettivamente in alto, a sini- 
stra, a destra ed inbasso. La velocità di movimen- 
to è modificabile premendo i tasti ESC e Vi il 
cursore diventa “?” ed il programma si predispo- 
ne all’input della velocità (massimo due cifre), 
dopo di che ritorna al modo M. Dopo aver posizio- 
nato il cursore dove si desidera, si può passare in 
modo SCRIVI o XSCRIVI premendo ESC seguito 
rispettivamente da $ o X; il cursore diventa ap- 
punto “S" o “X”. L'operatore è così in grado di 
scrivere direttamente sulla pagina grafica (da 


notare che usando il modo X si una volta 
scritto un messaggio cancellarlo riottenendo lo 
sfondo originale). 


1) RETURN: il cursore si abbassa di una riga; 
2) CTRL-I: il cursore si alza di una riga; 
3) FRECCIA A SINISTRA: cancella (e memorizza in 
un buffer di 255 caratteri); 
4) FRECCIA A DESTRA: riscrive; 
5) ESC-L: passa in minuscolo (cursore “x” 0 “s”); 
6) ESC-U: torna in maiuscolo: 
7) ESC-@: passa alla visualizzazione di caratteri 
speciali; che sono selezionabili con le due frecce. 
Il carattere viene scelto col RETURN, mentre ESC 
permette di uscire senza la stampa del carattere. 
Un terzo modo è accessibile premendo ESC. 
(punto). Il cursore diventa una crocetta che si 
può spostare, come nel modo M, con i tasti |, J,M, 
K. Posizionato il cursore sul punto desiderato, l'o- 
peratore può ottenere le coordinate del punto 
premendo i tasti ESC? (punto interrogativo). Pre- 
mendo RETURN il programma visualizza nuova- 
mente la pagina grafica con il cursore (crocetta) 
lampeggiante. Per passare da un modo all'altro 
in ogni momento è sufficiente premere il tasto 
ESC seguito dal tasto che simboleggia il modo 
che si vuol attivare ($ per scrivi, M per muovi, 


ecc.). 
ESQ Q, infine, permette di uscire dall'opzione 
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Listato 1 - Il listato di 
FP.PLOT. 
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SCRMI e di tormare al menu principale. 


| file dati 


| file trattati dal programma sono file casuali 
(lunghezza = 8) che originariamente devono 
contenere: 
e nel record 0: il numero di punti (n); 
e nei record da 102XN+1: le n coppie di coordi- 
nate (alternativamente la x e la y). 
Dopo l'uso con l'opzione R attiva il file conterrà: 
e nel record 0: il numero di punti (n); 
e nei record da 1 a 2*Xn+1: invariato; 
e nel record 2Xn+2: il valore di x minimo; 
e nel record 2*Xn+3: il valore di x massimo; 
e nel record 2Xn+4: il valore di y minimo; 
e nel record 2Xn+5: il valore di y massimo. 
| dati contenuti nel file dovranno essere del tipo 
restituito dalla routine FP.STORE. Avendo però dati 
memorizzati normalmente (non più di tremila 
punti), si può usare il piccolo programma TRA- 
SFORMAZIONE DATI per creare file manipolabili 
da FP.PLOT, 


REMarks al programma 


100-430: subroutine che scrive gli estremi di una 
curva. 

140-460: subroutine che converte la variabile nu- 
merica AA nel formato "+XXE+XX" (nella variabi- 
le alfanumerica AA$). 

170-180: subroutine che converte AA nella strin- 
ga AA$ (formato “+XXXXXX"), 

190-240: subroutine che scrive l'intestazione del- 
la tabella Massimi-minimi. 

250-330: subroutine che scrive gli estremi della 
curva in fondo al file e pone in negativo il numero 
di punti per segnalare al programma che questo 
file ha memorizzati i Massimi ed i minimi. 
340-350: subroutine che memorizza i caratteri 
scritti sulla pagina grafica. 

1000-1440: inizializza le costanti e carica i pro- 


grammi in I.m. In particolare la riga 1040 trova lo 
slot usato dal DOS e calcola i valori di accensione 
(SI%) e spegnimento (NO%) del giradischi; questi 
valori vengono usati in seguito per mantenere il 
giradischi in rotazione velocizzando la lettura dei 
dati. A questo proposito: se si interrompe il pro- 
gramma durante la lettura dati il giradischi conti- 
nua a girare finché non si preme il RESET o non si 
scrive un comando POKE o PEEKE che faccia riferi- 
mento alla locazione NO%. Se si vuole evitare 
questo inconveniente è sufficiente aggiungere al 
programma i seguenti due passi: 

0 ONERR GO TO 5000 

5000 POKE NO%,0: TEXT: HOME: PRINT “errore nr.o- 
“PEEK(222)” alla linea “PEEK(218) + PE- 
EK(219)x256 

1150-4340: input del numero del drive contenen- 
te il disco dati ed input del nome delle curve da 
disegnare. 

1350-1770: input delle opzioni per il grafico e 
delle intestazioni. 

1780-2390: calcolo degli estremi delle curve ed 
eventuale input dei nuovi estremi. 

2400-2630: disegno dello sfondo (assi, griglia, va- 
lori di scala, intestazione, ecc.). 

2640-2870: traccia le curve. 

2880-3260: numerazione delle curve e OK? lam- 
peggiante. 

3270-3300: ESC lampeggiante. 

3310-3450: menu finale. 

3460-3490: registrazione del grafico su disco. 
3500-3630: creazione tabella degli estremi per il 
cambio di scala. 

3640-3690: cursore lampeggiante ed input per 
l'opzione 5. 

3700-3730: salti ai vari “modi”. 

3740-3780: |, ), K, M delle routine “muovi” e “ricer- 
ca punti”. 

3790-3830: controllo delle coordinate di stampa. 
3840-3940: input velocità cursore. 

3920-4430: routine di scrittura. 

4140-4220: routine di ESC. 

4230-4380: caratteri speciali. 

4390-4480: stampa le coordinate del punto 
(modo ricerca punti). a 
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rro 
Tr* 


CALL 
CALI 
PRINT 
CALI 
PRINT 
RETURN 

IF LEN (B1$) 255 THEN Bi$ 
BI* RIGHT$ (B1%,254) + CUR 

HIMEM: 28155 

UOMEM: 245765 

DIM C$ (9) XM(P) XF), YM{P) ,YW(S) 54 ( 
101) UU? CL) 
CHR$ (4) CHR$ (91) + 

162482 + PEEK (1528):SI% 

PRINT Dé#"BLOAD FF.PLOT.BIN" 


-":5$(1) = "+"18$(2) 


Cu“: TRE = W2(0): PRINT 
CV%:TR$ = M2(2): PRINT 
DE "WRITE "C4 (I) ",RO0" 
CVA: TRI = NF: PRINT 

Dt "CLOSE "C# (1) 


rrs 


= CHR$ RETURN 


RETURN 


B13 (KZ) 3 


(KZ%): 


+ 


I":TR# = 
NOX + 


"1234567" 


TE (0) 


*:6P$ (0) 


"fi" 


28079 
(10) 
27367 
1:5C% 1: WR 
163B4:KCX 
15336 
16304:FS% 
3082 


1) 
PRX 
LG 
Cv“ 
Gu 
ER“ = 
SPEAKERX 
86% 
O: BK% 
FIX 
FF$ = TEXT 
POKE KCZ,0: VTAB 
VTAB HTAB 24: 
RIGHT#* (DR$,1) 
PRINT Z$: IF Z# 
1170 
POKE KC%,9: DR$ 
INPLIT 
VTAR 10: 
VAL 7%) 


"ON 


LOG 


= D:AS5% 
16368 


1 


. 


- 16297:P2% = 16299: 


16302: HG% 


20 


. 
î 


HOME 


PS 
=] 


: PRINT 
GET Z$: 


"I DATI SONO SUL DRIVE "I# 
IF Z6 CHR$ (13) AND DE 


SS € miu 


5: 


> "1" AND Z$ < > "2" THEN PRINT CHR$ 


+ Z$ 
"NUMERO DI CURVE 
HIAB 28: PRINT NO: 


= D OR VAL (7%) 


" Ato 


“ mar 


(MAX 19) 
GOTO 1230 
10 THEN FRINT 


“iZ$: IF Z%$ = 
THEN 
IF 
200 
NO VAL (Z%) 

HOME s VTAB PRINI 

FOR I = 0 TO NC% 1 

VTAB 5 + I: PRINT “CURVA 
VTAB 5 + I: HTAB 12: INPUT 
CHR$* (7): GOTO 1260 

IF Z* THEN 1300 

IF Z7* HR$® (5) THEN I 


CHR* (7) 


< 


2: "* NOME DELLE CURVE : " 


up» 
uus7$: 


IF Z$ = AND C$(I) = 


a.C 
2% 
5. 

NEXT I 
POKE KC%,0: VTAR 20: PRINT 
VTAR 20: HTAB 19; GET 2%: 
PRINI CHR$ (7); GOTO 1330 
IF 2% = "N" THEN 1150 

HOME 
VTAE 
VTAR 
VTAR 
VIAR 
VTAB 
VTAR 
VTAB 
POKE 


I 1:1I I (I > tr GOTO 1250 


I: 


HTAB 12: PRINT C$(I) 
CHR$ (7) "TUTTO CORRETTO ? "I$ 


PRINT Z%:; IF Z%$ < > "S" AND Z$ 


HTAB 4: 
HTAB 4: 
HTAB 4: 
HTAB 4: 
HTAR 4: 
HTAB 4: 
HTARB 4: 
“,9: VTAB 
VTAR HTAE 28: 
$(SC%): VTAB 9: HTAB 
ASK): NORMAL 
VTAB 20: HTAB ib: 
THEN CALI 198: 
IF 72% = CHR$ (13) 
IF 7% "G" THEN GX 
IF Z$ “"S" THEN SC% 
IF Z% "rr" THEN WRZX 
IF 7% "A" THEN AS 
IF 2% "i OR 4% 
FL = VAL (72%) 
VTARB 29: HTAR 
HOME 


PRINT 

FRINT 

PRINT 
PRINT 
PRINT 


"” (6) 
" (S) 
" (R) 
"(A) 
SC) 


GRIGLIA..... 
ASSI IN SCALA......." 
REGISTRA MAX/MIN...." 
DISEGNA GLI ASSI" 
GRAFICO PER PUNTI" 
PRINT "(2) GRAFICO PER LINEE" 
PRINT "(3) GRAFICO PER SIMBOLI" 
20: HTAB 15: PRINT I$ 

INVERSE PRINT ST$(6%): VTAB 7: 
28: PRINT ST$#(WR%): VTAB 11: 


INA re e pe 


URiimi dI 


HTAB 28: 
HTAR 283: FR 
GET Z#$: PRINT Z#*: IF 2# = CHR$ (i3) AND 
GOTO 1450 
THEN 1530 
= 6% n: 


SC% = 


BO0T0 1440 
= M: GO0OTO0 1440 
UR = 0: GOTO 1440 
AS = 0: GOTO 1440 
THEN CALL 198: 


Last 


TI) 
uz® S 


16: PRINT FLX 


E6% 


THEN Z% 


LI 


AND 


THEN 


PRINT 


INT 


NOT 


7): 


Seguito listato 1. 


2) ,SP$ (1) ,GT$C(1) Mi Ci) ,M2C(i),W 


“OFF ":3ST$( 


mr 
e 75 


GOoTO 


NOX 


G010 i 


PRINT 


"N" THEN 


ST 
ST$( 


FLX 


APPLEES=E=== 


1550 VTAB 2: PRINT "x%#* INTESTAZIONE DEI GRAFICO Xage" 

1560  VTAB 6: PRINT "*TITOLO (MAX 55 CARATTERI)" 

1570. POKF 34,6: HOME : INVERSE 

1580 VTAB 9: HTAB 15; PRINT "©": NORMAL 

15909 VTAR 7: INPUT "":Z% 

1600 1F 7% < > "" THEN TI% = Z$ 

1610 IF LEN (TI*) > S5 THEN TI* = LEFT$ (TI*,55): CALL 198: FLASII : 
G0f0 1580 

1620 HOME : PRINT TI$: VTAB 10: PRINT "x ASSE X (MAX 3 CARATTERI) " 

16309 POKE 34,10: HOME ; INVERSE 

1640 VTAB 12: HITAR 3: PRINT "©": NORMAL 


Seguito listato I. 


1650 VTAB 11: INFUT "":Z%: IF Z$ «< > "" THEN Xx6 = Z% 
1660 IF LEN ‘xX$£) > 3 THEN XX% = LEFT* (X%X#,3): CALI 198: FLASH : GOT 
1540 


1670 HOME : PRINT XX#$: VIAB 14: PRINT "* ASSE Y (MAX 3 CARATTERI)" 
1689 POKE 34,14: HOME : INVERSE 
1590 VTAR 16: HTAB 3: PRINT "©": NORMAL 


1700  VTAB 15: INPUT "":Z$%: IF Z$£« > "" THEN YYt = 2Z%$ 
1710 IF LEN (YY$) > 3 THEN YY® = LEFT® (YY$,3): CALL 198: FLASH : GO0T0 
1692 


1720 HOME : PRINT YYs 

17309 FPOKE KC%,0: VTAR 20: FRINT CHR$ (7) "CONFERMI ? ";1% 

1740 TEXT 

1750 VTAB 20: HTAB 13: GET 2%: FRINT Z*£: IF 2$ < > "S" AND Z% < > "N" THEN 
CALL - 198: GOTO 17509 

1760 IF 72% = "N" THEN 1350 

17/0 IF Ffà = "!" THEN 3500 

1780 FFé$ = "!": HOME : FLASH 

1775 VITAB ir PRINT "=". RICERVA DEI MASSIMI © DEI MINIMI *" 

1800 NORMAL : GOSUR 199 

1810 FOR I = 0 TO NC — 1 

18320 PRINT D&E"VERIFY"C£(1) DRE 

1830 PRINT D£"OPEN "C$(I)",L8" 

13409 PRINT DE"READ "C$ (I) 

1850 INFUT TR$: CALL CV%:NP = TR$: IF NP = A THEN i900 

19360 NP = MP: PRINT D$"READ"C$&(I)",R"NFP * 2 + 1 

18/0 INPUT TR: CALL CV%:W41 (0) = TRE: INPUT TR$: CALL CV%:M1 (0) = TR$: INPUT 
TRE: CALL CV4:Uuz (0) = TRI: INFUT TR$: CALL CV%:M2(0) = TR$ 

1880 VTABR I + 8: HTAG 3: PRINT NF 

12929 G0T0 2010 

1200 INFUT TR$: CALL CVz:X > TRt: INPUT TR: CALL CV%:Y = TR$ 

1919 M1(0) = XsM2(0) = Ysb1(Q0) = xX:02(0) = Y 

i920 VTAR I + 8: HTAB a: PRINT 1 

19309 FOR J = 2 TO NF: VTAB I + 8: HTAB 3: PRINT J 

1940 INPUT TRE: CALL CV%X:X = TR$: INPUT TR$: CALL CV%:v =“ TR$ 

1950 IF m1(0) X THEN M1(9) = X 

1940 IF WI(M) X THEN Wi@) = X 

1970 IF M2<‘(0) Y THEN M2(0) = v 

19B@ IF W2(8) > Y THEN W2(2) = Y 

1999 AZ = PECE (SI%) 

2000 NEXT J: IF W°RX THEN GOSUB 250 

2010 IF NOT I THEN WII) = Di (@)shMi (1) = MI (0): M2(1) = M2(0):W2(1) = W2? 
(A) 

2020 7 = 0: GOSUB 100% 

2030 XWCI) = WI(Q):YW(I) = W2(0):XM(I) = MI (MD): YM(I) = M?(0) 

2049 IF Mi(1) Mi (2) THEN Mi1C1) = MI (2) 

2050 IF M2(1) < l120(9A) THEN M2?(1) = M2(0) 

2060 IF WICi) > WIL(d) THEN WIC1) = WI <(d) 

2070 IF W2(1) > W2C(0) THEN W2C1) = WP(0) 

2089 PRINT D*"CLOSE"C$ (1) 

2090 NEXT I:h% = PCEK (NO%) 

21020 VTAB 1: PRINT "x RICERCA DEI MASSIMI E DEI MINIMI La 

ZIIO WIi(d0) = WIC(1):142(0) = VI2(1):M2(0) = M2(1):Mi (0) = Miti) 

2120 VTAB 20: PRINT “GLOBALE " 

2130 2 = i:I = 12: GO0SUB 100 

2140 FOKE KC%,0: FOKE 34,21: HOME : VTAB 22: PRINT CHRS$ (7) "VUOY CAMBIA 
RE QUESTI LIMITI ? "I% 

2159 VTAB 22: HTAE 32: GET Z#$: PRINT Z%;: IF Z$« > "GS" AND 7% > "N" 
THEN PRINI CHKR* (7): G0T0 2150 

2i60 IW Z$ = "N" THEN 2400 

2170 HOME 

2189 VTAR 22: INPUT "* X MIN = ";2# 


2190 If 2% = "" THEN 2260 
2200 IF ASC (2£) < > 67 OR LEN (Z£) < > 2 THEN 2250 
2210 Z% = RIGHT£ (Z$,1) 
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5220 A% = VAL (Z$): IF AX < ® OR A% > NC% — 1 THEN 2180 Seguito listato 1. 

2230 MICI) = XWCAY) NZ) = VICAZI:MI (1) = XM(AZ)sM2(1) = YMIAY) 

224 Z = i: GOSUB 100: GOTO 2140 

2250 WI (1) = VAL (Z$) 

2250 AA = Wi (1): GOSUR 140: VTAB 20: HTAB 9: PRINT AA$ 

2272 HOME 

5290 VTAB 22: INPUT "* X MAX = "32%: IF 2% = "" THEN 2300 

2290 MI (1) = VAL (Z4) 

2300 AA = MI (1): GOSUR 140: VTAB 20: HTAB 17: PRINT ARS 

2319 HOME 

2520 VTAB 22: INPUT "* Y MIN = "sZ$: IF 2% = "" THEN 2340 

2330 UZ0I) = VAL (26) 

2340 AA = W2(1): GOSUB 140: VTAB 20: HTAB 25: PRINT AR$ 

2350 HOME 

23650 VTAB 22: INPUT "* Y MAX = "3Z$: IF Z$ = ““ THEN 2382 

2370 M2(1) = VAL (Z$) 

2380 AA = M2(1): GOSUR 140: VTAB 20: HTAB 33: PRINT GA$ 

2399 GOTO 2140 

400 TEXT : HOME s FLASH : VTABR 2: HTAB 5: PRINT "* CREAZIONE DELLO 
SFONDO = #" 

2410 NORMA! 

2420 E1% = 6:E2% = 6: IF SC% AND MIC1) THEN J = LUG € ABS (MIC1))) * SGN 
(M1(1)) / LG:€1% = E1% — J- (J = 0) 

2430 IF SC% AND M2(1) THEN J = LOG ( ABS (M2(1))) * SGN (M2(1)) / LG:E 
2% = E27 - J- (J = @) 

2440 FX = 235 / (MI(1) — WIC1)):FY = 175 / (M201) - W2C1)) 

2450 POKE E6%,64: POKE 28,127: CALL BK% 

2460 HCOLOR= 0: HPLOT 30,6 TO 30,183 TO 267,183 TO 267,6 TO 30,6: FOR I = 
7 TO 182 STEP 35: HPLOT 28,1 TO 29,1: NEXT I 

2470 IF NOT AS THEN 2520 

2480 AX% = 31 - WIC1) * FX: IF AX% < 3i OR AX% > 266 THEN AXZ = Q 

2499 IF AX% THEN HFLOT AXZ,7 TO AX%,182 

2500 AYX = 182 + W2(1) * FY: IF AYZ < 7 OR AY% > 182 THEN AYZ = ® 

2510 IF AY% THEN HPLOT 31,AY% TO 266,AY% 

2520 FOR I = 31 TO 266 STEP 47: HPLOT 1,183 TO 1,184: NEXT 

2530 CALL PRZi PRINT TI$,48,1 

2544 CALL PRZ: PRINT YY$,28,1: CALL PRZ: PRINT XX$,269,180 

2550 DEY = E2%:YS = 180:ST = (M2(1) — W2(1)) / 5: FOR I = W2(1) TO M2(1) STEP 
ST:AA = I: ON SC% + 1 GOSUB 140,170: CALL PR%: PRINT AA$,O,YS:YS = YS 

35: NEXT I 

2560 AA = M2(1): ON SC% + 1 GOSUR 140,170: CALL PR%: PRINT AA$,9,5 

2570 IF SC% THEN AAS = "E" + STR& €( — E2%): CALL PRZ: PRINT AR$,28 - LEN 
(AA$) * 4,11 

2590 DEZ > Ei%:YS = 45:ST = (Mi(1) — WIC1)) / 5: FOR I = WIC1) TO MIC1) STEP 
ST3AA = I 

2590 ON SCX + 1 GOSUR 140,170: IF SC% AND I = Wi(1) THEN AA$ = ARS + "E" 

+ STR$ ( - E1% 

2600 CALL PR%: PRINT AA$,YS — 4 * LEN (AA$) ,186:YS = YS + 47: NEXT I 

2600 AA = MICI): CN SCZ + | GOSUB 149,170: CALL PR: PRINT AA$, 252,186 

2520 IF 68% THEN FOR X = 78 TO 219 STEP 47: FOR Y = 7 TO 182 STEP 5: HPLOT 
X.Y TO X.Y + 33 NEXT : NEXT : FOR Y = 42 TO 150 STEP 35: FOR X = 3i TO 
266 STEP 5: HPLOT X,Y TO X + 3,Y: NEXT 1 NEXT 

2530 VTAB 2: HTAB 5: PRINT "x CREAZIONE DELLO SFONDO «" 

2540 VTAB if: HTAB S: FLASH : PRINT "* CREAZIONE DEL GRAFICO 

2650 NORMAL 

24660 FOR 1 = 0 TO NC — i 

2670 VTAB 15: HTAB S: PRINT "CURVA N.RO “"I;: HTAB 20: PRINT “PUNTI 

2680 PRINT DE"OFEN “C$(1) DR$ 

2590 PRINT DE"READ “C$(1) 

27/00 INPUT TR$: CALL CV%INP = TR$:NP = ABS (NP) 

2710 EX = 1: FOR J = 1 TO NP: VTAB 15: HTAB 27: PRINT J 

2720 A% = PEEK (SI%) 

2730 INPUT TR$: CALL CV%:X = TR$: INPUT TR$: CALL CV%:Y = TR$ 

2740 X = 31 + (X — WIC1)) * FXsY = 182 — (Y — W201)) # FY 

2750 IF X < 32 THEN XY = 30: IF FL% = 3 THEN 2830 

2760 1F 5 THEN-Y = 63 IF FLX = 3 THEN 2830 

= 267: IF FLX = 3 THEN 2830 
= 18%: IF FLY = 3 THEN 2830 


Xx 

v 
2779 IF X 267 THEN X 
2780 1F Y 183 THEN v = 
2790 IF FL% = 1 THEN € HPLOT X,Y 

EX% THEN XxV% = XsYV% = Y 

2810 IF FL% = 3 THEN CALL FR%: PRINT ‘I*,X — 1,Y- i 
28320 IF FL% = 2 THEN HPLOT XV%,YV% TO X,Y:XVX = X:YVZ = Y 
2B350 Ex = ® . 
2840 NEXT J: PRINT D#“"CLOSE "C$ (1) 


2200 1F 


| 

LI 
L 
| E 
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2850 NEXT I: POKE NO%,0 

2B60 IF AXZ * AYX * ASZ THEN HCOLOR= 7: CALL PR%: PRINT 
YX — 6: HCOLOR= ®: CALL PR: PRINT "O“,AXZ + 4,AY% -— 68 

2870 VTARE 10: HTAR 5: PRINT "* CREAZIONE DEL GRAFICO 

2880 IF FU% = 3 OR NC = 1 THEN 2910 

28909 POKE KC%,0: VTAB 20: PRINT CHR$ (7) "VUOI NUMERARE LE CURVE ? "1% 

2900 VTAR 20: HTAR 27: BET Z4: PRINT 2%: IF 2% <« > "8" AND Z* > “N"“ THEN 
CALL 198: GOTO 2900 

29109 FPOKE S6%,0: POKE FS%,0: POKE P2%,0%: POKE H6G%,@ 

2920 IF 72% = "N" OR FI% = 3 OR NC = 1 THEN 3270 

2930 FOR I= 0 TO NC% — 1 

2940 FRINT D$"OPEN"C$*(I)",L8" 

2950 R$ = D$ + "READ" + C$(I) + ",R" 

2960 FRINT R$0 

2970  INFUT TR®*: CALL CV%:NP TR$: NN s NF * 2:NP = ABS (NF) 

2980 IF NN < 1 THEN NN = NF - 1 

2990 IF NN > NF —- 1 THEN NN i 

3000 PRINT R$NN 

3019 INPUT TR$: CALI. CV%:X = TR$: INPUT TR$: CALL CV%:Y = TR$ 

3020 AX = PEEK (51%) 

3030 CU% = 127: IF X > Mi(1) OR X < WI(1) OR Y > M2(1) OR Y < W2(1) THEN 
CU% = 79 

3040 PAX = d:X = 3A + (* - 

3059 IF X < 32 THEN x = 32 

3060 IF X > 264 THEN X = 264 

3070 IF Y < 8 THEN Y = 8 

3082 IF Y > 181 THEN Y = 181 

3090 POKE KC%,0 

3100 CALL PRX:X PRINT ‘CU%’.,X,YsPA% = PA% = 0: FOR TI = 1 TO TIZ: NEXT T 
I 

3110 K% = PEEK (KR%)s IF K% < 128 THEN 3100 

3120 POKE KC,Q 

3139 IF PAX THEN CALL PR%:X PRINT ‘CU%’,X,Y:PAX = 0 

3140 IF KX 136 THEN NN = NN - 2: GOTO 2982 

3150 IF K% 149 THEN NN = NN + 2: GOTO 2980 

3160 IF KX 141 THEN CALL PR%: PRINT ‘127’,X —- 1,Y — 13 CALL PRZ: PRINT 

27° sX 1,Y — i: CALL PR%: PRINT ‘127’,X - 1,Y + 1: CALL PR%: PRINT 

1,Y + 1: CALL PRA:X PRINT ‘48 + I',X,Y: GOTO 3100 

155 THEN 3190 

31809 CALI. - 198: GOTO 3100 

3190 FRINT D*"CLOSE"C®%(I) 

3200 POKE KCZ,0:PAX = 0: POKE NOZ,0Q 

3210 AX = FPEEK (SPEAKER%): CALL PR%:X PRINT "OK?",15,22: PAY PAX O: FOR 
TIME = 1 TO TI%: NEXT TIME 

3220 K% = PEEK (KR%)s IF K% < > 211 AND KZ < > 206 THEN 3210 

3239 FOKE KC%,0: IF PAX THEN PAZ = 0: CALL PRZ:X PRINT "OK?",15,22:FA% = 
(") 

3240 IF K% « > Pii THEN 2940 

32520  FRINT Dé&"CLOSE"C$(T) 

3260 NEXT I:A% = PEEK (NO0%) 

3270 POKE KC%,0:PAX = © 

32809 A%X = PEEK (SPEAKER%): CALL PR%:X PRINT "ESC",15,22:PAX = PAX 
TIME = 1 TO TI% x 2: NEXT TIME 

3290 IF PEEK (KR%) < > 155 THEN 3280 

3300 IF PAZ THEN PAZ = A: CALL PRX:X PRINT "ESC",15,22:PA% = 

3310 TEXT : HOME 

3320 VTARS PRINT " (1) REGISTRA IL GRAFICO" 

335359 VTAB PRINT “ (2) ALTRE CURVE" 

2342 VTAB PRINT " (3) CAMBIA LA SCALA" 

3350 VTAB PRINT (4) CAMBIA TIFO DI GRAFICO" 

3360 VTAR PRINT (5) SCRITTE" 

3370 VTAR PRINT (5) FINE" 

3390 PRINT QUALE "I$ 

3390 HTAB 165: GET Z%: PRINT 7% 

3400 "6" THEN HOME : END 

34192 "5" THEN 3640 

3420 "4" THEN 1350 

3430 "3" THEN 3500 

3440 "25 THEN 1150 

3450 "1" THEN CALL —- 198: GOTO 3390 

3460 

3470 VTAB 10: INPUT "NOME DEL GRAFICO ";7%: IF Z$ = "" THEN 3470 

5480  FRINT D$"BSAVE"Z£".,A54000,L1$2000" 

34909. GOTO 3310 

35090 TEXT : HOME 


WI CI)) # FXiY = 179 — (YV — W2C1)) * FY 


127‘',X 
3170 IF K% 


Wt+t+btr 


»—- 
da 
ni 
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ee 
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3519 GOSUR 190 

3320 FOR I = % TO NC - i 

3530 IF Wi(@) = XW(I} THEN INVERSE 

3540 VTAR I + 8: HTAB 9:5AhA = XWCI): GOSUR 140: PRINT ARS: NORMAL 
3550 IF M1(0) = XM(I) THEN INVERSE 

35650 VTAB I + 8: HTAB 17:AA = XM(I): GOSUB 140: PRINT AAS: NORMAL 
3570 IF W2(0) = YW(I) THEN INVERSE 

35820 VTAB I + 8: HTAE 25:AA = YW(I): GOSUB 140: PRINT AA$: NORMAL 
3590 IF M2(0) = YM(I) THEN INVERSE 

3600 VTAB I + 8: HTAR 3E:Ah = YM(IT): GOSUB 140: PRINT ANS: NORMAL 
3610 NEXT I 

3620 VTAB 20: PRINT "USATI :":I = 12:27 = i: GOSUB 100 

36359  FOKE 34,21: GOTO 2170 

3640 POKE 56%,0: FOKE FS%,0: POKE P2%,2: POKE H6%,0 


36520 XP% = SiYP% = 15:CU% = 77:V% = 20:PA% = @: POKE 

3660 A% = PEEK (SP% * (CU% = 43)) + 
XPX,YP%:PA = PAX = @ 

3670 FOR TIME = 1 TO TI%: NEXT TIME:K% = 
560 

3682 POKE KC%,2: 

3690 K% = K% -— 128 


PEEK (KR% 


IF PA% THEN FA% = 8: CALL FR%:X PR 


3700 IF CU% = 43 THEN 4140 
3710 IF K% = 27 THEN CO% = CU%:CU% = 43: GOTO 3660 
3720 IF (CU% = 115 OR CU% = 120) AND (K% > 64 AND K 


32: GOTO 3920 


3730 IF CU% = 83 OR CU% = 88 OR CU% = 120 OR CU = 

3740 IF K% = 73 THEN YP% = YP% - V%: GOTO 3790 

3750 IF K% = 74 THEN XP% = XP% - V%: GOTO 3790 

3760 IF K% = 75 THEN XP% = XP% + V%: GOTO 3790 

3770 IF K% = 77 THEN YP% = YP% + V%: GOTO 3790 

3780 G0T0 3660 

3790 IF YP%X < 0 THEN YP% = ® 

3800 IF YPX > 187 THEN vYyP% = 187 

3810 IF XP% < ® THEN XF% = ® 

3820 IF XP% > 277 THEN XF = 277 

3832 GO0T0 3660 

3840 AA$ = "" 

3850 AX = @PEEK (SPEAKER%)3: CALL PRA:X PRINT "?",XP% 

3860 FOR TIME = 1 TO TI%: NEXT TI:K% = PEEK (KR%)s 
Va] 

3870 FOKE KC%,0: IF PAZ THEN CALL PR%:X PRINT "?", 

3875 IF Kk% = 129 THEN 3900 

3880 IF K% > 185 OR K% < 176 THEN CALL 198: GOT 

3899 AA = AA% +  CHR$ (K% — 128): IF LEN (AAF) < 2 

3920 V% = VAL (AAT): IF NOT V% THEN CALL 198: 

3910 G0T0 3660 

3920 IF kz < > 8 THEN 4020 

3930 IF Bis = "" THEN K% = 9: GOTO 3980 

3940 IF LEN (B1$) = i THEN K% *® ASC (Bi*):k2% = E 
3960 

3950 |KX = ASC ( RIGHT$ (B1%,1)):B2% = B2$ + RIGHT£ 


(G1$, LEN (R1%) - 1) 


3960 IF Kk% = 9 THEN YP% = YP% + 6: GOTO 3790 

3970 IF K% = 13 THEN YP% = YP% - &: GOTO 3790 

3980 XP% = XFX - 4: IF XP% < ® THEN XF% = 277:YP% = 

3990 IF YP% <“ 9 THEN YPFX = 0 

4000 IF Kk% THEN CALL PR%:X PRINT ‘K%',XP%,YP% 

10129 GOTO 3560 

4AMZO IF K% « > 2i THEN 4060 

4030 IF B2$ = "* THEN Kz = 32: GOTO 4110 

4049 IF LEN (B2$) = 1 THEN K% = ASC (B2%):B2%$ = " 
4050 K% =  ASC ( RIGHT$ (B2%$,1)):P2% = LEFT$* (82%, 


40609 1F K% = S THEN YP% = YPZ% - 6: GOSUB 340: GOTO 
4070 IF Kz = 13 THEN YPZ = YPZ * 6: GOSUB 342: GOTO 
4050 IF K% < 32 THEN 365660 

4090 IF CU = 83 OR CU% = 115 THEN CALL FR: PRINT 
41090 IF CU%z = 82 0R CUZ = 120 THEN CALL PR:X PRIN 
dii GUI 546 
4120 XFP% = XP% + 4: 
41300 GOTO 3790 
4140 CU% = CO%: IF k% = 77 THEN CU% = K%s G0TO0 3660 
4150 IF KX 46 THEN CU% = 42:YP% = YP% - 2: GOTO 3 
4160 IF KX 63 AND CU% = 42 THEN 4390 

3170 IF K% 83 OK K% = 88 THEN CU%z = KZ;: GOTO 364652 
4180 IF K% 86 THEN 3840 


IF XP% > 277 THEN XP% = O:YF% = 


Mum 


PEEK (SP%): CALL PR: X PRINT 


KC%,2 
*“Sux*, 


): IF K% < 128 THEN 3 
INT ‘CU%’,XFPX,YP% 


% < 91) THEN K% = K% + 


115 THEN 3920 


s YPZ:FAZ = PAX = M 
IF KZ < 128 THEN 385 


XPX,YP%:PAX = ® 
O 3850 


THEN 3850 
GOTO 3840 


2% + B1$:B1$ = "": GOTO 
(B1$%,1):Bi$ = LEFT$ 


YP% — 6 


“": GOTO 4079 
LEN (B2$) -— 1) 
3790 

3790 


"KU XP, YPX 
T‘KX' XP, YP% 


VP + 6 


790 


Seguito listato 1. 
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Listato 2 - Trasforma fi- 
le: trasforma file di dati 
manipolabili da 
FP.PLOT. 


14 - 1984 © Bit 


4190 IF kx = 85 AND 


4200 IF K% = 76 AND 


4210 IF 
4220 
4230 
4240 AZ = 
3250 


42650 
4270 IF 
4275 IF K% = 
4280 IF Kk% = 
4290 
4500 IF cd 
4310 IF 


432 


4330 IF 
4340 IF 
4350 IF I= 92 
4350 IF 
370 IF z? 
4380 
4390 


4400 X = 
4410 
4420 
4430 
4440 
4450 
44650 
4470 
4480 


10 
20 
so 
40 
50 
60 
70 
no 
so 
100 
110 
120 
130 
140 
150 


160 
170 


180 
190 
200 
210 


22 
dk 


250 
240 
250 
260 
270 
290 
290 
toe 


310 
320 


sro 
340 
359 
360 
370 
so 
390 
400 
410 


420 
duo 
440 


(CO% = 115 OR C0% = 120) THEN CU% = CO% 32: G0T0 3 


660 
(CO% = 83 OR C0% = 88) THEN CU% = CO% + 32: GO0TO0 366 
lil 

KX = 8I 
IF k 


1I=@ 


THEN 3270 


64 UR CU% = 77 OR CU% = 42 THEN 2365660 
FEEK (SPEAKER%): 
TIME = 1 TO TI%: 


CALL PRZ:X PRINT 
NEXT TI:K% = PEEK 


‘I’,XPZ,YP%:PAX = PAZ = 0 
FOR (ERZ) so IF KZ 128 THEN 424 
vd 
POKE KC%,09: IF PAX THEN 
KZ = 141 THEN K% = Is: 
155 THEN 3660 
136 THEN I 
149 THEN I 
THEN I = 
127 THEN I 
20 IF 122 THEN I 
97 THEN 
94 THEN 
THEN 
90 THEN 
THEN 


CALL PRZ:X PRINT ‘I° 
GOTO 42090 


sXFPX,YPX:FAX = 0 


= I 
IF K% = I 


+ 


GOTO 4240 
IF XP% 
GOTO 36460 
(XP aa) 
HOME 
VTAR ! 
VTAR 
TEXT 
VTAB HTAE 5: PRINT "PREMI RETURN 
VTAB HTAR 19: GET Zs$: IF Z£ 
POKE S6%,0: POKE FS7,2: POKE P2%,0: 
GOTO 3660 


39 OR XPX > 265 OR YP% 1B0 OR YFX < 5 THEN CALL 


/ FX + WI(1):Y = (180 YPZ) / FY + W2(1) 


PRINT 
PRINT 


"x XY "X 


HTAB 5: 
: Ua ì 4 = vY 


HTAB 5 


"I*% 
CHR$ (13) 
POKE H6G7,0 


THEN 4460 


VITMEM: 
D$ =» CHRE (4) 
Cvz = 27367:TR$ — “Nraeaer " 
PRINT D$*"“BLO0AD FP.,STORE,A29519" 
NO% =» 16248 + PEEK (1528)1S1% = NO% + 1:1% = 
DIM x(3000),vY (3000) 
TEXT : HOME 
VTAB 5: PRINT " DRIVE FILC ORIGINALE "I$% 
VTAB 5: HTAB 25: GET 28: IF Z$ « CHR$ (13) 
Dis = 24 
PRINT DI*: IF Dis "1" AND DI$* "2" THEN CALL 
VTAR 10: PRINT “" DRIVE FILE MODIFICATO "1% 
VTAR 10: HTAR 25: GET Z£: IF 7% « CHR$ (13) THEN 150 
D2% = 20 
PRINT D2t:; 
150 
VTAB 20: PRINT “è TUTTO OK ? "1% 
VTAB 20: HTAB 13: GET 2%: PRINT Z4: IF 24 < lst eg 
160 
IF 2% = "N" THEN 70 
HOME 
VTAB 5: INPUT “FILE ORIGINALE 
IF 2% = "* THEM VTAD 5: 
Fis = /4 
IF Fis = ““ THEN CALL - 198: GO0TO0 200 
VTAB 15: INPUT "FILE MODIFICATO : “32% 
IF 2$ = "" THEN VITAB 10: HTAB 19: PRINT F2$: GOTO 270 
F2%t = 7% 
IF F2% = “" THEN 
HOME 
VTAB 5: PRINT “IL NUMERO PUNTI E 
VTAB S: HTAB 34: GET 71: PRINT 26: 
CALL 198: GOTO Zoo 
IF 72% = “S" THEN NN% = 0: GOTO 350 
VTAB 8: INPUT "“ NUMERO PUNTI ? "3Z$%: 
7: PRINT NNZ: GOTO 340 
NN% = VAL (23) 
IF NN% = @ THEN CALI 198: G0T0 3720 
HOME : PRINT “"* DISPOSIZIONE X E Y NEL FILE ORIGINALE" 
VTAB S: NHTAB 5: PRINT “"(1) X ED Y A COPPIE" 
VTAB 8: HTAR 5: PRINT "(2) Y ED x A COPPIE" 
VTAB 11: HTAB 5: PRINT "(3) PRIMA LE X E POI LE Y" 
VTAB 14: HTAB 5: PRINT "(4) PRIMA LE Y E POI LE XY" 
VTAB 18: HTAB 5: PRINT "QUALE "14 
VTAB 18: HTAB 12: GET Z$: PRINT Z64: 
- 198: GOTO 410 
FX = VAL (7%) 
VTAB 20: HTAB 5: PRINT "TUTTO OK? "14 
VTAB 20: HTAB 16: GET 76: PRINT 28: IF 26 E° 
CALI 198: GO0TO0 440 


CHRS (91) + 


THEN 119 


198: GCOTO 50 


IF D2$£ "1" AND D?$ ia dal 


THEN CALL - 198: G0T0 


AND Z6 SN“ THEN 


“32% 
HTAL 19%: PRINT Fif: GOTO 230 


CALL 198: GOTO 240 


NEL RECORD @ "Is 


IF 2% "S" AND 2% < > "N" THEN 


IF 2$ = “"“ THEN VTAB B: HTAB 1 


IFTw< I° CRT #4" THEN CALI 


AND Z4 - > "SN" THEN 


Seguito listato 2. 
IF 24 ® "N" THEN 190 

HOME : VTAB 109: KTAB 2: PRINT " CREAZIONE NUOVO FILE DATI 
PRINT DE*VERIFY"F18",D"D1% 

PRINT D*"OPEN"F14 

PRINT DE'READ"F 14 

ll NOT NN THEN INPUT NZ 

IF FX 3 TIHEN 600 

FOR Lo se 1 TO NN: POKE SI%,0 

INPUT X: IF F% = 3 THEN X(L) = 

IF f% = 4 THEN YU) = X 

NEXT 

FOR L * 1 TO NNZ: POKE SI%Z.,0 

INPUT Y: IF F% = 3 THEN VCL) 

IF fx = 4 THEN xXiL) = y 

NEXT : GOITO 450 

FOR L = 1 TO NNZ: POKE S1I%,0 

INPUT Xx: INPUT v 

IF F% = 1 THEN XL) XrsY(L) “ 

IF F% = 2 THEN Yi{L) = X:X(L) @« 
NEXT 

PRINT “CLOSE "F1% 

PRINT “CLOSE "F1$ 

PRINT "OPEN"F2£",0"D21 

PRINT "WRITE "F2% 

CALL CVZ: TR$ = NN%3s PRINT TR$ 

FOR LL * 1 TO NN%: FOKE SI%.,0 

CALL CVz4:1RE = XL): PRINI TRS 

CALL CVa:TRI = Y(L): PRINT TR$ 
NEXI 

PRINT D$"CLUSE “"F24 

POKE NO%,0 

HUME 

VTAR 10: HTAB 5: PRINT "ANCORA "1% 
VTARB 19: HTAB 14: GET 26%: PRINT 78%: P “S“ AND 74 "MM" THEN 
CALL 198: G0T0 780 

IF 2% ® "8" THEN 70 


x9251 9Sb0- C9 59 7 pa Hi ha e 
93B8- E? sa 92 > 
9251 ì e 93C0- 6D ; - ($9251.9418), del SET 
9258- "FR 9308- 92 E 92 40 DI CARATTERI e di 
9260- È 7 C6 F 93DB- 93 0 3 3 FP.STORE. 
9268 : 93D8- 38 E 2 E 
9270 93EO- 92 
92798 : 93E8- CI 
9280 = 93F9- AG 
9288- FF F 93FB- EE S 
9290- : 9400- 67 
9298- = 9408- 0A 
92A2- 94109- 02 
92A8- : 9418- D4 
9200- 
92B8- © - 2 *9519. SFF 
Pad 9519- 20 
92C08- 9520- E3 
92D0- È z 9528- 95 
92D8- 2 9530- FC 
260 9538- DI 
92E8- dii 3 ) 9540- E3 
92F0- ? 29 FF 9548- 95 
S2P9 29 7F ? FO 95S0- FA 
3008- «A 9558- 85 
7308- 9560- 00 
9310- i si 9568- 46 
SLA DO . 9570- DA 
3920- RS FD FO E So 9578- 6A 
9328- 2C FO 3 05 93 20 E 9>s0- 05 
9330: 3 AS 50 C 9589- FA 
IS558- x 9592- C9 
97340- : E 9598- 67 
9348- 3 9SAO- 29 
9350- 05 è 0 95 95AB- 00 
9358- -- 4 9SR9- CO 
9360- BD E2 È 9SB8- 2A 
9368- FF 95C0- QB 
9370- C6 Ù 95C8- 20 
9378- ° » £ 3 9SDD- 09 
73580- 35 FB 95D8- AP 
9388 95E0- C9 
9390- 92 72 AI 9SE8- BI 


93798 Y. sli 2 95FO- 85 . : 
FAAO- 4C 2 y 95F8B- AZ 
93A8- 29 TE 26 AS 3 
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Listato 4 - Utility per 
memorizzare le variabili 
FP come stringhe di set- 
te caratteri. 
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*%419,9518 


9419- 
9420- 
9428- 
9430- 
9438 
9440- 
9448- 
9450- 
9458 
9440- 
9468- 
9470- 11 
9478- 
9480- 
9488. 
9492- 


AZ 
14 
1C 
na 
da 
3A 
29 
28 
3C 
7D 


2A 
De 
di 


! ASM 

*#*END OF 29RSS 
##*END OF PASS 
0800 
0800 
0800 
0800 
0800 
0800 
9519 
9519 
00F9 
00FA 
00FB 
00FC 
00FD 
OO0FE 
009D 
9519 
951C 
951C 
951C 
95iF 
9522 
9524 
9526 
9529 
952B 
952D 
952D 
952F 
953: 
9533 
9535 
9537 
9539 
953C 
953F 
9542 
9544 
9546 
9549 
954B 
954D 
954F 
9551 
9554 
9556 
9558 
955 
9558 
955D 


2080FE 


2OBL00 
20E3DF 
A612 
FOO3 
405795 
RA6ii 
DOS8 


esFeR 
B4FC 
AO0O 
BiB8 
C9DO 
FOO3 
4CF395 
20B100 
20E3DF 
AGI2 
FOO3 
4CF795 
RE6LI 
FOF9 
85F9 


ic 
AR? 
d7 
E2 
1E 


OF 3 


H4 


BB 5 


00 
F2 


alt] 


DC 2 


15 GIN: DD JYOUIASLI 


AA pa dd pa pa 


KAFKA AA IAT VIRATA EE 
* UTILITY DEI MEMCI.ZZERE LE 


* VARSABIL 
* DI 


22 pavo nrani 


7 CARRUTERI (ay è 


+ 


KATBFLETUIPTITFENITATVKANTEVINNEIVUITA 


CRE 
CBI 
97 
"hl 


imminmmm 
++:VIVOvYVIK 
DO INNNINIDIN 


Cd 


$95:9 
$ 800 
€=3 
SFR 
$52 


$FC 


$FE 

292 

$FESC 

z9 VSeSDOANO 85 
A FPC VICEVERSO 
$2. 


so RATTUR gare 
gue 3 #40 
3 INVE 29€ 


fi CENVERSSONE SE? 


PUNTA LA VARIABILE 


LR TROVA 


LAR VRI “% 
ct20 TRRATO 


KON E 
vor DI 


3 PICSGINO CRIAUTERE 
2° A LRca €I 


AC' £92C2E 
cIUNTA L'ALTA 


: var 
TACVA 


. 
» 
» 


DELLA 


sIUNTATDRRI 
397 ?1x5hR 


20B100 
2067DD 
AS9E 
24ARZ 
3002 
297F 
859E 


4CFB95 
ce 
B1F9 
AR 

ce 
B1F9 
86F9 
85FA 
60 


33 CONTROZLANO ONE 


A STR: 
CARATTERI € NE SALVANO 2 PLAYA" 


lu dti Cera a ie ia e i 
TIE HEI EE RE A 5 
IL GistZO) DI CR I I 
+22 (NS) A A SR RS 


Seguito listato 4. 


i f 1- Nume 0 
LO T2CVA 
SMETTE A POSTO IL SEGNO 


NEGATIVO 

è$7F *E* LOCSITIVO 
$95 

4 

FO, Y 

1640 

#$7F 

(DS. L),Y 


E° 3: deli 


= LOO2C 


CA 
F9, X 


#i 

LOC?D 
#840 
d:B57F 
CAS, 
80 
20020 


BO 

(PS.L}),VY LUNGHEZZA 

%7 

Oka 

223% pUUNB=SZZ92 222272 


(9S.L), Y 


(PS.L),Y 
PS.L sI “VERI” PUNTATEORI = 
PS. sDELLA STRINGA O) 
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Listato 5 - Listato dell'u- 
tility per scrivere sulle 
pagine grafiche dell’ Ap- 
ple. 
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APPLE 


95F3 

95F3 

95F3 AZIO 
95F5 D006 
95F7 AZAZ 
95F9 D002 
95FB A2B0 
95SFD 4C12D4 


1354 
135 
136 
137 
138 
139 
1460 
161 
142 


n ar e I SANI RE Aa 


ot 


3I PRSSI 136-140 DEFINISCONO IL 
3E SALTANO AD UNA ROUTINE B3SSIC 
SYNTRAX LDX #!:6 

BN ERRORE 

LDX #'163 

BNE ERRORE 

LDX #!176 

IMP $D4:12 

END 


TYPE 


ERR$ 
ERRORE 


attntt END DF ASSEMBLY 


! ASM 
#*END OF PASS i 
##END OF PASS 2 
0800 
0800 
0800 
0800 
0800 
0800 
0800 
9206 
9206 
9251 
924E 
924F 
9250 
00FF 
OOFA 
0oFR 


HOWVLOIDNBSAGUN- 


KE iz>oonisiiiso 
* UTILITY PER SCRIVERE SLLLE »* 
* PAGINE GRAFICHE DELL'APALE »* 
* CON CARATTERI DI 3#7 PUNTI # 
* (5y acriano baracco - ’83) » 
FALKAKAKLFLAEKKAKKFrKrKkrrrtrrritaiiea 


92206 
€800 


176 
i 


ORG 
OBJ 
BUSFER DES 
X.L BUFFER+! 72 
X. Hi 3 Rot: 
24 X.H+1l 
XF_RS $5F 
DUNT.L SFA 
BUNT. A $=B 


00FA 
00FB 
00FC 
00FC 
00FD 
925: 
9254 
9256 
9258 
9258 
925D 
925F 
9261 
9263 
9265 
LISA 
9267 
926A 
926C 
926E 
9270 
9272 
9275 
9278 
927A 
927C 
927E 
9280 
9282 
9285 
9287 
9289 
9288 
928E 
928E 
9290 
9292 
9294 
9296 


COUNTER 
cRaR 
LUNGH 


CONT. X 
20B0FE 
A946 
85FD 
20B100 
ROOO 


400594 
20B100 
B1B8 
C922 
FO43 
C927 
FO6D 
20E3DF 
A611 
EOFF 


ANCORA 


SUN.» 
DN. 
$FC 
LUNG: 
$FD 
$ 7580 
#'70 


I CONT. X 


$Bi 
#0 
XFLAG 
($B8), Y 
** x 
PRIN" 
XFLAG 


$E: 

#0 

($B8), Y 

#!186 

ANCORA 

SYNTAX 

$Ei 

($E8),Y 

(id "> 

MESSAG 

»#° ?? 

ASC 

$DFEI 

6.1 

#$FF - 
PUNTA 
TYPE sN 
MORIZZANO 


TiP0 DI ERRCRE 
DI GESTIONE D’ ERRORE 


® CARATTERI+VARIABILI 


e* IL CONTATORE 252 IL BUFFER 
3 


UNTA AL COMANDO 
AZZERA 


IL FLAG DI XDRINT 


E? XPRINT ? 


S1* : FLAG=$FF 


E? UN NMESSRGGIC 
SI”: MESMORIZZALO 
SONO CODICI ASC 
SÌ? : MEMORIZZALI 
E” UNA VARIABILE 
E’ UNA VARIABILE ALFRNUMERICA ? 
0' ERRORE 

LA STRINGA NEL BUFFER 
MEMORIZZA I PUNTATORI 
DELLA STQIINGA 


LUNGHEZZA DELLA STRINGA 


9298 
929A 
929C 
929E 
92RA0 
92R1 
92A3 
92R4 


NMEMOVAR 


(PUNT.L),Y 


PIU” LUNGA 
AL: SALVA 
Sì’ SALVA 


INIZIO STR 


DE BUF=2Z2? 
TUTTA LA STRINGA 
i CARATTERI CHE PUOI 


INGA, BYTE BRSSO 


4C1893 


20B100 
AO0OO 
AEFD 
B1B8 
C922 
FOLIO 


D003 
400994 
297F 
9D0692 


401593 


20B100 
20FF93 
A6FD 
ASSO 
297F 
900692 
C6eFD 
FOO8 
A00O 
B1B8 
C92C 
FOES 
AO0O 
B1B8 
C927 
FOO3 
400994 


20B100 
AGO0 
B1iB8 
C9C8 
D007 
ASFD 
FOEE 
407592 
C92C 
FOO3 
406593 
20B100 
20FF93 
ASSO 
C918 
8D4E92 
ASSI 
8D4F92 
E901 
9003 


LDA 
STA 
STX 
LDY 
LDX 
LDA 
AND 
STA 
DEX 
INY 


(PUNT. L) ,Y > INIZI: Seguito listato 5. 
PUNT. H 

PUNT. — 

#0 

CONT. X 

(PUNT.L),Y 

#$75 

BUFFER, X 


CPY LUNS 


BNE 
STX 
IMPX.Y JMP 
3 I PASSI DA 
MESSAG ISR 
LDY 
LDX 
LOOPZ LDA 
Cmp 
BEO 
(bi<2.| 
BNE 
JMP 
MEMO AND 
STA 
DEX 
INY 
BNE 
ENDMESS STX 


77 A 99 MEYORIZZANO IL MESSAGGIO NEL BUFFER 
$B:i 3 PUNTA INIZIO MESSAGGIO 
#50 
CONT. X 
($B8),Y 
uu" MESSAGGIO FINITO ? 
E\DMESS s SI’: ESCI 

FINITO IL BUFFER 

C’= ANCORA SPAZIO 


BUFFER, X 


LOOP? 
CONT. X 


+58 3 RGGICRNA IL PUNTATORE 

$B8 

$B9 

#0 

$B2 

X.Y 

102 A 117 MEMORIZZANO ) CODICI ASC 

$Bi s PUNTA AL NUOVO VALORE 
DECO 5 CALCCLA L’ASC 

CONT. X 

$50 

#$77 

BUFFER, X 

CONT. X E ANCORA SPAZIO 

CTRL? CONTROLLA CHE SIA FINITO 
#0 

($B83), Y 

#w ALTRI VALORI DA TRADURRE? 


} ASC SI*: CONTINUA 


Im? 


#0 

($B8&),Y 

ci 3 FINITO? 
X.Y 

MEYCAY 3 NO: ERACE 


PASSI DA 119 A 53 COnTROLLANO SE VI E° ALTRO DA SCRIVERE 
TROVANDO (SE SPECIFICATE) LE COORDINATE DI X E DIY 


SQ 


TROVAX cm? 
BO 
JMP 
TROVAX2 JS2 
IS 
LDA 
Cm? 
STA 
LDA 
STA 
SBC 
ECC 


$B. 3 REGIORNA IL PUNTATORE 
#0 
(€B8),Y 
#! 700 
TROVAX 
CONT. X 391’! CONTROLLA IL BUFFER 
ERRM 

ANCORA 3 C'E? SPAZIO: CONTINUA 

© 3C° E” UNA VIRGOLA ? 
TROVAXZ 

STAM?2R 

$Bi 

DECC TROVA IL VALCRE DI X 

$50 E* IL BYTE BASSO DELLA X 
#24 

Mok 

$Si E* IL BYTE ALTO 


X.HA 
#1: 
X (280 
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* RLTRO DA SCRIVERE? 


» 
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9347 A00O 
49 BIB8 


20B100 
2.2 
20FF93 
ASSI 
DOE8 
ASSO 
C9Ico 
BOE2 
805092 


A6FD 
A9FF 
9D0692 
A947 
85FD 
CesD 
R6FD 
BD0692 
C9FF 
D004 
2084FE 
60 
0A 
RA 
85FC 
BD1994 
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È vero: piccolo è bello! 


Alla scoperta dello 
ZX SPECTRUM 


a cura di Rita Bonelli 


ZX Spectrum è l’ultimo nato della famiglia Sinclair. E un 
calcolatore a colori di piccole dimensioni, ma di 
grandissime possibilità. Imparare a usarlo bene può 
essere fonte di molte piacevoli scoperte. Questo libro vi 
aiuta a raggiungere lo scopo. In 35 brevi e facilissimi 
capitoli non solo imparerete tutto sulla programmazione 
in BASIC, ma arriverete anche a usare efficientemente il 
registratore e a sfruttare al meglio le stampe. 
Soprattutto capirete la differenza tra il vostro Spectrum 
e gli altri computer. 
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TI99/4A 


Rubrica personale 


di Sergio Borsani 


© er quale motivo tante persone usano un pic- 
«colo computer domestico? Le statistiche di- 
cono che quasi il 70 per cento di queste lo usano 
per ivideo giochi senza meglio specificare a cosa 
è dedito l'altro eletto 30 per cento. 
Ma c'è forse chi usa un home computer per uno 
scopo davvero utile, che faccia risparmiare tem- 
po e fatica in qualche applicazione specifica? 
Non mancheranno le eccezioni, ma penso che 
nella maggior parte dei casi non si possa parlare 
di vera utilità e che si tratti piuttosto di un gioco 
intellettuale, una sorta di jogging per la mente, 
spesso con apprezzabili contenuti didattici. Fac- 
ciamo un esempio concreto. Non manca per 
ogni piccolo computer un programma perla rac- 
colta degli indirizzi che tra l’altro potrebbe diven- 
tare un protagonista in clima di vacanze natali- 
zie quando ci si accinge a spedire i fatidici bi- 
glietti di auguri. Ma sinceramente non è più prati- 
ca e veloce la tradizionale ricerca su una comu- 
nissima agenda? 

Ciò nonostante ci accingiamo a presentare 
proprio un programma di questo tipo semplice- 
mente a scopo didattico e quasi accogliendo il 
pretesto per parlare di alcune caratteristiche del 
TI994A home computer e del TI Extended BASIC. 
È noto come l'uso di un home computer in confi- 
gurazione base, con un solo registratore quale 
memoria di massa, sia alquanto limitante per la 
gestione dei file. Oltre ad una maggiore lentezza, 
non è possibile avere un accesso diretto ai record 
che pertanto devono essere letti sequenzialmen- 
te. Per ovviare a questo inconveniente, se il file 
non è molto ampio, esso si può caricare total- 
mente nella memoria centrale, dopo di che su di 
esso si potranno svolgere tutte quelle operazioni 
che normalmente si effettuano sui file su disco, 
come la ricerca con un campo chiave, la modifi- 
ca di un record o l'aggiunta di nuovi record. 
Iniziamo ad esaminare il listato. Alla linea 320 c'è 
il menu con cinque opzioni (vedi figura 1). 
Ogni record è costituito da cinque campi: co- 
gnome e nome, indirizzo, città, numero telefoni- 
co, annotazioni varie; con poche variazioni non 
sostanziali è tuttavia possibile adattare il pro- 
gramma ad altri tracciati record. 

Nella RAM l'intero file è contenuto sotto forma 
di matrice a due dimensioni: R$. Il dimensiona- 
mento si limita a cento elementi. L'inserimento 
dei dati non avviene con istruzioni INPUT ma, in 
modo più elegante, per mezzo di una cosiddetta 
“maschera”; cioè ogni campo è introdotto con 
un'istruzione ACCEPT AT sempre in una posizione 
del video dove viene mostrata la lunghezza mas- 
sima del campo e dove una legenda ne chiarifi- 
ca il contenuto. La maschera viene creata conla 
subroutine 1890. | campi definiti con l'istruzione 
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Figura 2 - La struttura record. 


Figura 3 - Esempio di matrice bidimensionale creata 
per contenere i dati. 


Figura 4 - Stampa del record. 


450 vengono portati ad una lunghezza prefissata 
con un'altra subroutine, la 2010, che aggiunge 
un opportuno numero di space. | record così cre- 
ati non vengono subito registrati su nastro ma 
sono trattenuti in memoria centrale per poterlì 
controllare ed eventualmente correggere (op- 
zione 3: leggi record). 
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Poiché con le registrazioni su nastro non è a di- 
sposizione la funzione EOF (End Of File), è neces- 
sario riempire un campo dell'ultimo record con 
una parola chiave. Con notevole fantasia è stata 
scelta la parola “FINEFILE”! (linea 700). 

Il flag denominato FLAGFILE (linea 730) è impo- 
stato a 10 dopola scrittura del file o dopo il suo 
caricamento dal nastro e garantisce la presenza 
del file al momento della sua lettura. Un contato- 
re tiene nota dei record appena scritti o caricati 
da nastro; al termine di queste operazioni il nu- 
mero totale dei record viene conservato nella 
variabile TOTREC (linea 770). Alla linea successiva 
inizia la sezione per la lettura del file e per even- 
tuali modifiche; inoltre è prevista una lettura se- 
quenziale ed una lettura diretta. Per la prima, 
naturalmente, non sarebbe stato necessario cari- 
care l'intero file in memoria; questa operazione è 
tuttavia indispensabile per simulare un file relati 
ve, ad accesso diretto. In questo caso la ricerca 
può essere fatta attraverso un campo chiave che 
può essere uno qualsiasi di quelli precedente- 
mente citati ad eccezione dell'ultimo riservato 
ad annotazioni varie. 

Normalmente in questi casi si crea un file Indice 

contenente un campo chiave ed il relativo nu- 
mero di record; trovato il nominativo interessato, si 
va a leggere l'intero record tramite il numero che 
lo contraddistingue. 
Nel nostro caso siamo fortunati perché, in un cer- 
to senso, tutti i campi sono strutturati in un file 
Indice, basterà leggere sequenzialmente gli ele- 
menti di una colonna della matrice R$ e, una 
volta trovato l'elemento che interessa, leggere 
tutta la riga corrispondente. Nel programma la 
ricerca è svolta dal ciclo FOR NEXT di linea 1360 e 
se questa ha buon esito si passa alla linea 1560 
per la ‘videata’ dell'intero record. 

Il programma non è poi così semplice come 
potrebbe sembrare a prima vista; un aneddoto 
chiarirà meglio dove stanno le difficoltà. Un gior- 
no si doveva telefonare all'editore Muzzio di Pa- 
dova e, trovandosi ad un posto pubblico senza 
l'agenda personale, ci si dovette rivolgere alla SIP 
per avere il numero telefonico. La ricerca viene 
svolta ora in modo computerizzato; nonostante 
ciò l'impiegata non riusciva a trovare il nominati- 
vo richiesto ed il motivo, lo scoprii in seguito, era 
semplicissimo: la ragione sociale della casa edi- 
trice era Franco Muzzio e non Muzzio Franco. 

Per ovviare a questi inconvenienti è stato reso il 
programma più elastico e la ricerca può essere 
indifferentemente effettuata tramite cognome e 
nome oppure soltanto attraverso il cognome: il 
nome della città può essere individuato anche se 
nel record è preceduto dal CAP e, analogamen- 
te, il numero telefonico potrà essere preceduto, 
oppure no, dal prefisso; è sufficiente che questi 
elementi siano separati, nel campo chiave, da 
uno spazio, da una barra obliqua o da una pa- 
rentesi tonda. È previsto anche il trattamento de- 
gli omonimi, pertanto il programma è in grado di 
estrarre dal file tutti i record di persone residenti, 
ad esempio, a Milano. 

Vedete, alla linea 1000 e seguenti, lo statement 
CALL EDITOR? Non cercate questa istruzione nel 
manuale dell'Extended BASIC, non la trovereste. 
Essa è la chiamata di un sottoprogramma, che è 
stato chiamato EDITOR perché svolge la funzione 
di editor di linea. | vantaggi di un sottoprogram- 
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ma rispetto ad una subroutine, richiamata con 
una GOSUB, è che il primo ha le variabili indipen- 
denti dalle altre del programma, anche se hanno 
lo stesso nome! Un sottoprogramma può quindi 
venire scritto e controllato come un programma 
indipendente per poi essere agganciato ad un 
altro programma con un comando MERGE (per 
altro disponibile solo con un sistema a dischi). 
Gli elementi di sintassi di una chiamata di un 
sottoprogramma sono: 

CALL nome (parametro 1, parametro 2...) 


END - fine del programma principale - 

SUB nome (parametro 1, parametro 2....) 

,« * sottoprogramma - 

SUBEND - fine del sottoprogramma - 

Il sottoprogramma deve essere posto al termine 
del programma principale e tra essi è possibile 
trasferire variabili o costanti tramite una lista di 
parametri che accompagna la CALL. 

Si parla molto del Pascal e della programma- 
zione strutturata, ma con l'uso dei sottoprogram- 
mi, consentito dal TI Extended BASIC, si possono 
ottenere ugualmente procedure e strutturazione! 

La funzione dell'editor di linea è quella di modi- 
ficare o cormeggere un record senza doverlo riscri- 
vere completamente. Quando in risposta alla do- 
manda: “modifica? (y/n)”, si preme “y”, compare 
un cursore sul primo carattere del primo campo 
del record che può essere normalmente spostato 
usando il tasto FCTN ed uno di quelli con la frec- 
cia: “S” o “D”. Premendo ENTER il cursore si sposta 
sui campi successivi ed una volta portato nella 
giusta posizione si può scrivere modificando il 
contenuto di un campo. 
| nuovi caratteri digitati andranno a sostituire i 
precedenti; non sono invece disponibili le funzio- 


Figura 5 - Il diagramma 


a blocchi. 
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ni DELETE ed INSERT. Pensate! Con il TI99/4A potete 
normalmente editare una stringa che sia stata 
stampata sullo schermo con una PRINTO con una 
DISPLAY AT? 

Un'altra funzione del programma è quella di 
aggiungere record ad un file già esistente. Per chi 
possiede un sistema a dischi la cosa non presen- 
ta difficoltà, è sufficiente aprire il file nel modo 
APPEND. L'unica alternativa per chi usa un regi- 
stratore è quella di caricare in memoria tutto il file, 
aggiungere i record, quindi registrare nuovamen- 
te tutto il file. È questa la soluzione qui adottata. 
Durante il caricamento del file la variabile CTR 
(ConfatoRe) conta i record presenti, il numero 
massimo viene posto in TOTREC, quindi si scrivono 
altri record a partire dal numero successivo. 

AI momento di salvare il file i campi di ogni 
record vengono sommati a formare un'unica 
stringa di 126 caratteri e ovviamente in fase di 
lettura la stringa viene decodificata con la fun- 
zione SEG$ in base alla lunghezza dei campi. 
Questa, a dire il vero, è eccezionalmente lunga, 
20 caratteri sono più che sufficienti a contenere 
cognome e nome, al posto degli attuali 28 echi 
vorrà economizzare lo spazio in memoria potrà 
apportare le opportune modifiche, inoltre, cam- 
biando i nomi dei campi, si potrà utilizzare il pro- 
gramma per altri scopi e trasformarlo, lasciando- 
ne immutata la struttura, in archivio per bibliote- 
ca domestica, per tenere in ordine una raccolta 
di dischi o per costituire uno schedario compute- 
rizzato relativo ad una raccolta di francobolli. 


Qualche dettaglio in più 


Il punto di partenza di un programma di questo 
tipo è la esatta definizione del tracciato record, 
cioè la definizione del numero e della lunghezza 
dei campi che costituiscono ogni record. 

Nella fase di programmazione tale struttura non 
deve mai essere persa di vista e per questo va 
schematizzata in un modo simile a quello riporta- 
to in figura 2. 

| numeri in basso indicano la posizione e, indiret- 
tamente, la lunghezza dei campi. 

Per le nostre esigenze l'intero file va caricato in 
una matrice che nel caso specifico è stata di- 
mensionata alla linea 220 del programma. Una 
matrice bidimensionale va vista come una strut- 
tura rettangolare di caselle disposte su un certo 
numero di righe e di colonne (vedi figura 3). 
Va precisato che gli elementi della matrice, an- 
che se non contengono nessun dato, comporta- 
no comunque un consumo di memoria. Una ma- 
trice ‘Vuota”, con cento righe e cinque colonne, 
occupa più di 1 Kbyte; se poi scriviamo il conte- 
nuto degli elementi dell'intera matrice consume- 
remo altri 12 Kbyte, arrivando al limite delle capa- 
cità del TI99/4A, con il modulo TI Extended BASIC 
inserito e senza l'espansione di memoria. 

Il lettore si renderà conto di come sia difficile 
gestire in questo modo più di 100 o 200 record, 
pur limitando il numero e la lunghezza dei campi. 
Seguiamo ora la sorte di un record. Esso nasce 
alla linea 450 del programma: alle variabili RIG, 
COL e LUN vengono assegnati i valori dell'istruzio- 
ne DATA di linea 410. 
| contenuti dei singoli campi sono, in un primo 
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tempo, associati alla variabile con indice CAM- 
POS e solo dopo la conferma entrano nella matri- 
ce R$. Se, ad esempio, stiamo scrivendo il decimo 
record, sarà CTR=10 e R$(10,1) conterrà cogno- 
me e nome, R$(10,2) l'indirizzo, R$(10,3) la città, e 
così via. Ogni campo, in virtù della subroutine 
2010, avrà una lunghezza prefissata. 

Il record rimarrà nella memoria centrale e non 
verrà registrato su nastro se non quando.-sarà 
stato scritto l'intero file. La registrazione avviene 
alla riga 1730 dopo che alla linea precedente 
sono stati sommati gli elementi di ogni riga della 
matrice per formare i singoli record. 

Nella fase di lettura del file, come si è già detto, 
avvengono le operazioni inverse: il record viene 
scomposto nei 5 campi per mezzo della funzione 
SEG$; ad esempio, SEG$(RECORD$, 57,28), resti- 
tuisce il terzo campo dell'ultimo record letto, in- 
fatti si è stabilito che esso debba iniziare dal 
57esimo carattere e debba esser lungo 28 carat- 
teri. | campi così ottenuti vengono nuovamente 
memorizzati nella matrice R$. 

La lettura è necessaria ogni qual volta si spe- 
gne il computer ma anche quando si interrompe 
il programma e si fa riprendere con il comando 
RUN perché in tal caso si annulla il contenuto 
della matrice R$. 

Immaginiamo ora di voler accedere al nostro 
record in modo diretto con una ricerca basata sul 
nome della città (campo 3). Il nome viene accet- 
tato con l'istruzione 1350; qui LINPUT, a differenza 
di INPUT, accetta una stringa contenente anche 
eventuali virgole, senza interpretarle come sepa- 
ratori di variabili. Il ciclo FOR NEXT (linee 1360- 
1470) legge sequenzialmente tutti gli elementi 
della terza colonna della matrice R$ confrontan- 
doli con il nome della città da noi specificato 
(variabile NOME$). Il contenuto del campo letto 
potrebbe essere: “20124 MILANO + space”, o 
semplicemente: “MILANO + space” (sempre per 
un totale di 28 caratteri), pertanto, prima del 
confronto, vengono tolti gli space alla destra del 
nome (routine 2060). Se le due stringhe non risul- 
tassero uguali il programma le confronta nuova- 
mente dopo aver tolto il C.A.P. 

Solo quando l'esito è positivo si stampa l'intero 
record (vedi figura 4). 

Per quanto riguarda l'Editor, si usa sostanzialmen- 
te l'istruzione CALL KEY, specificando la tastiera n. 
S con la quale vengono assegnati numeri di codi- 
ce anche ai tasti di funzione. In questo Modo se 
premiamo il tasto (D), la variabile KF specificata 
alla linea 2160 assume il valore 68, ma se premia- 
mo FCTN (D) sarà KF = 9 ed in base a questo 
valore un'istruzione successiva farà spostare il cur- 
sore verso destra (vedi diagramma a blocchi). 

Quando si preme il tasto ENTER (codice 13) il 

controllo passa al ciclo FOR NEXT alle linee 2240- 
2270, viene letta la linea editata e caricata nella 
variabile B$. Terminato il sottoprogramma SUB 
EDITOR, il contenuto di B$ passa automatica- 
lb all'elemento corrispondente della matri- 
ce R$. 
Naturalmente, se anche un solo record è stato 
modificato, bisognerà registrare nuovamente sul 
nastro l'intero file altrimenti la modifica che ab- 
biamo apportato verrà persa al momento dello 
spegnimento del computer o quando il program- 
ma viene interrotto con FCTN (4) e poi rilanciato 
con il comando RUN. 
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Figura 6 - Il listato del 
REM programma. 
REM PATATE EEE ee 
REM 
REM RUBRICA FERSONALE 
REM 
ENTI TT TO CO LO CC CC i 
REM E* NECESSARIO 
REM UN SOLO REGISTRATORE 
REM rire cisiesize 
REM versione: EXT.BPASIC 
REM 1.12.1985 
CALL CLEAR 
DIM R$(100,5) 

CALL CHAR(128, "FFFFFFFFFFFFFFFF") 
CALL CHAR(129, "7E4242424242427E"):: CALL COLOR(13,9,1) 
DISPLAY AT(11,11): "RUBRICA" :: DISPLAY AT (13,10): "PERSONALE" 
CALL HCHAR(9,8,128,17):: CALL VCHAR (10,8, 128,5) 
CALL VCHAR (10,24, 128,5):: CALL HCHAR(15,8, 128,17) 
FOR T=1 TO 1000 :: NEXT T 
CMF$(1)="cognome (e nome)" :: CFM$(2)="l’indirizzo" 
CMP$(3)="la citta"”" :: CMF$(4)="il num. telefonico" 
CALL CLEAR 
PRINT "1. SCRIVI RECORDS":"2. AGGIUNGI RECORDS" 
PRINT "3. LEGGI RECORDS":"4. REGISTRA FILE" 
PRINT "S. CARICA FILE":"6. FINE PROGRAMMA" 
FOR J=1 TO B :: PRINT :: NEXT J 
CALL KEY(0,K,S):: IF S=0 THEN 360 
IF K<49 OR K>54 THEN 360 ELSE K=K-48 
ON K GOTO 390,720, 780, 1640, 1760, 2110 
CTR=1 :: GOSUB 1890 
DISPLAY AT(1,17):STR$ (CTR) 
DATA 3,1,28,7,1,28,11,1,28,15,15,14,19,1,28 
RESTORE 410 
FOR X=1 TO 5 
READ RIG,COL, LUN 
ACCEPT AT(RIG,COL) SIZE (LUN) : CAMPO$ (X) 
GOSUB 2010 :: NEXT X 
DISPLAY AT(24,8): "confermi? (y/n)" 
CALL KEY(0,K,S):: IF S=0 THEN 480 
IF K=89 OR K=121 THEN S10 
IF K=78 OR K=110 THEN 600 ELSE 480 
FOR J=1 TOS 
) R$ (CTR.,J)=CAMPO$(J) 
NEXT J 
DISPLAY AT(24,8): "fine file? (y/n)" 
CTR=CTR+1 
CALL KEY(0,K,S):: IF S=0 THEN 560 
IF K=B9 OR K=121 THEN 690 
IF K<>78 AND K<>110 THEN 560 
IF CTR=100 THEN 660 
DISPLAY AT(3,1):" " 
DISPLAY AT(7,1):" " 
DISPLAY AT(11,1):" " 
DISPLAY AT(15,15):" " 
DISPLAY AT(19,1):" " 
DISPLAY AT(24,1):" “" :: GOTO 400 
CALL CLEAR 
DISPLAY AT(12,7):"* MEMORY FULL *" 
FOR T=1 TO 1000 :: NEXT T 
FLAGFILE=1 :: TOTREC=CTR 
R$ (CTR, 1)="FINEFILE" 
GOTO 310 
CALL CLEAR 
IF FLAGFILE=1 THEN 770 
PRINT "ATTENZIONE! IL FILE NON E°": "PRESENTE IN MEMORIA. "1; ""i gt 
PRINT TAB(é):; "premi un tasto per":TAB(10): "continuare" 
CALL KEY (0,K,S):: IF S=0 THEN 760 ELSE 310 
CTR=TOTREC :: GOSUB 1890 :: GOTO 400 
CALL CLEAR , 
IF FLAGFILE=1 THEN 830 
PRINT "ATTENZIONE! IL FILE NON E°": "PRESENTE IN MEMORIA": "peg neleg en “ 
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Seguito figura 6. 


820 


840 
B50 
8650 
B70 
880 
890 
900 
GIO 
20 
930 
940 
950 
960 
970 
980 
990 
1000 
1010 
1020 
1030 
1040 
1050 
1060 
1070 
1080 
1090 
1100 
1110 
1120 
1130 
1140 
1150 
1160 
1170 
1180 
1190 
1200 
1210 
1220 
1230 
1240 
1250 
1260 
1270 
12B0 
1290 
1300 
1310 
1320 
1330 
1340 
1350 
1360 
1370 
1380 
1390 
1400 
1410 
1420 
14350 
1440 
1450 
1460 
1470 
1480 
1490 
1500 
1510 


810 PRINT TAB(6): "premi un tasto per":TAB(10);" 
IF S=0 THEN 820 ELSE 310 
30 DISPLAY AT(6,1):"1. LETTURA SEQUENZIALE":"":"2. 


CALL KEY(0,K,S):: 


CALL KEY(0,K1,S)s: 
IF K1=49 THEN 880 
IF K1=50 THEN 1160 ELSE 840 

REM *** LETTURA SEQUENZIALE **+* 
CALL CLEAR :: GOSUB 1890 
FOR NUMREC=1 TO TOTREC-1 
DISPLAY AT(1,17):STR$ (NUMREC) 

DISPLAY AT(3,1):R$ (NUMREC, 1) 
DISPLAY AT (7,1):R$ (NUMREC, 2) 
DISFLAY AT(11,1):R$ (NUMREC, 3) 
DISFLAY AT (15, 15) :R$ (NUMREC, 4) 
DISPLAY AT (19,1) :R$ (NUMREC, 5) 
DISPLAY AT(24,7): "modifica? (y/n)" 
CALL. KEY(0,K,S):: IF S=0 THEN 970 

IF K=89 OR K=121 THEN 1000 

IF K=78 OR K=110 THEN 1090 ELSE 970 
CALL EDITOR (R$ (NUMREC, 1) ,3,3,28) 
CALL EDITOR (R$ (NUMREC, 2) ,7,3,28) 
CALL EDITOR (R$ (NUMREC, 3), 11,3,28) 
CALL EDITOR (R$ (NUMREC, 4), 15,17,14) 
CALL EDITOR (R$ (NUMREC, 5), 19,3, 28) 
DISPLAY AT(24,7): "confermi? (y/n)" 
CALL KEY(0,W,S):: IF S=0 THEN 1060 
IF W=B9 OR W=12! THEN 1090 

IF W=78 OR W=110 THEN 1000 ELSE 1060 
IF FLAG1=1 THEN 1290 

IF FLAG2=1 THEN 1580 

NEXT NUMREC 

CALL CLEAR 

DISPLAY AT(12,10): "FINE FILE" 

FOR TEMPO=1 TO 1000 :: NEXT TEMPO :: 
REM *** LETTURA DIRETTA *** 

CALL CLEAR 

PRINT "SCEGLI IL CAMPO CHIAVE":"" 
PRINT "1. numero record":"2. cognome 
PRINT "3. indirizzo":"4. citta'"."5. 
PRINT ” Wa ” hà ”" Me mn 

CALL KEY (0,KEY,S):: IF S=0 THEN 1210 
IF KEY<49 OR KEY>53 THEN 1210 
KEY=KEY-48 

IF KEY>1 THEN 1340 
PRINT "numero record?" 
IF NR>=TOTREC THEN 1510 
GOSUB 1890 :: NUMREC=NK 
FLAG1=1 :: GO0TO0 900 
FLAG1=0 

DISPLAY AT(24,6): "altro record? 
CALL KEY(0,k,S):: IF S=0 THEN 1310 
IF k=89 OR K=121 THEN 1160 

IF K=78 DR K=110 THEN 310 ELSE 1310 
PRINT "scrivi "sCMP$(KEY-1) 

LINPUT NOME* 

FOR NR=1 TO TOTREC-1 

BOSUEB 2060 

IF NOMES=NOME1% THEN 1560 

FOR J=1 TO LEN(NOME1%$) 


IF S:=0 THEN 840 


GOTO 310 


(e nome) " 
numero di 


(y/n)" 


L$=SEG% (NOME1%,J,1) 
IF L$=" " OR L$="/" OR L$=")" THEN 1430 
NEXT d :: GOTO 1470 


IF KEY=2 THEN 1450 


continuare" 


LETTURA DIRETTA" 


telefono" 


3: ACCEPT AT(24,1)SIZE(2)VALIDATE (DIGIT) :NR 


NOME2$=SEG$ (NOME 1%, J+1,LEN(NOME1$)-J):: GOTO 1460 


NOME2$=SEG$ (NOME1%,1,J-1) 
IF NOME$=NOME2$ THEN 1560 


NEXT NR 

IF FLAG3=0 THEN 1510 

PRINT TAB(5); "OMONIMI NON PRESENTI":"" 

FLAG3=0 :: GOTO 1520 

PRINT :: PRINT TAB(5); "RECORD NON PRESENTE!":"" 


1520 
1530 
1540 
1550 
1560 
1570 
1580 
1590 
1500 
1610 
1620 
1630 
1540 
1650 
15650 
1670 
1680 
1690 
1700 
1710 
1720 
1730 
1740 
1750 
17650 
1770 
1780 
1790 
1800 
1810 
1820 
1830 
1840 
1850 
1860 
1870 
1880 
1890 
1900 
1910 
1920 
1930 
1940 
1950 
1960 
1970 
1980 
1990 
2000 
2010 
2020 
2030 
2040 
2050 
2050 
2070 
2080 
2090 
2100 
2110 
2120 
2130 
2140 
2150 
2160 
2170 
2180 
2190 
2200 
2210 
2220 
2230 
2240 
2250 
2260 
2270 
2280 
2290 


DISPLAY AT(24,5): "vuoi continuare? (y/n)" 
CALL KEY(0,K,S):: IF S=0 THEN 1530 

IF K=89 OR K=121 THEN 1160 

IF K=78B OR K=i110 THEN 310 ELSE 1530 
GOSUB 1890 :: DISPLAY AT(1,17):STR$ (NR) 
FLAG2=1 :: NUMREC=NR :: BOTO 910 
FLAG2=0 Seguito figura 6. 
DISPLAY AT (24,5): "cerco omonimi? (y/n)" 

CALL KEY(0,K,S):: IF S=0 THEN 1600 

IF K=89 OR K=121 THEN 1630 

IF K=78 OR K=110 THEN 1520 ELSE 1600 

FLAGI=1 :: GOTO 1470 

CALL CLEAR 

IF FLAGFILE=1 THEN 1690 

PRINT "ATTENZIONE! IL FILE NON E°": "IN MEMORIA. "3" "tel; l6" 

PRINT TAB(7):"<premi un tasto>" 

CALL KEY(0,K,S):: IF S=0 THEN 1680 ELSE 310 

OPEN #3: "CS1", OUTPUT, SEGUENTIAL,FIXED 128 

FOR NR=1 TO TOTREC 

RECORD$=" " 

FOR J=1 TO S :: RECORD$=RECORD$®R$ (NR,J):: NEXT J 

PRINT #3:RECORD$ 

NEXT NR 
CLOSE #3 : 
CALL CLEAR 
CTR=0 
OPEN #3:"CS1", INFUT ,SEGUENTIAL,FIXED 128 
CTR=CTR+1 

LINPUT #3:RECORD$ 

R$ (CTR, 1)=5EG$ (RECORD$, 1, 28) 

R$ (CTR, 2)=SEG%$ (RECORD$, 29, 28) 

R$ (CTR, 3) =S5EG#$ (RECORD$, 57, 28) 

R$ (CTR, 4)=SEG% (RECORD$, 85, 14) 

R$ (CTR, 5) =SEG$ (RECORD$, 99, 28) 

IF SEG$ (R$ (CTR,1),1,8)<>"FINEFILE" THEN 1790 
FLAGFILE=1 :: TOTREC=CTR 

CLOSE #3 :: GOTO 310 

CALL CLEAR :: DISPLAY AT(1,10): "record: " 
DISPLAY AT(4,1):RFT$("_",28) 

DISPI.AY AT(5,1): "cognome e nome" 

DISPLAY AT(8,1):RPT$("_",28) 

DISPLAY AT(9,1):"indirizzo" 

DISFLAY AT(12,1):RPT$("_",28) 

DISPLAY AT(13,1):"(cap) citta!" 

DISPLAY AT(16,15):RPT$("_",14) 

DISPLAY AT(17,15): "tel." 

DISPLAY AT(20,1):RPT$("_",28) 

DISPLAY AT(21,1): "note" 

RETURN 

IF LEN(CAMPO®(X))=LUN THEN 2050 

FOR J=1 TO LUN-LEN(CAMPO$ (Xx) ) 
CAMPO (X) =CAMPO$ (X) &" " 

NEXT J 

RETURN 

FOR J=LEN(R$(NR,KEY-1))TO 1 STEP 1 

IF SEG$(R$(NR,KEY-1),J,1)<>" " THEN 2090 
NEXT J 

NOME1$=SEG$ (R$ (NR, KEY-1),1,J) 

RETURN 

CALL CLEAR :: END 

SUE EDITOR(B$,R,I,L} 

Be=" " 

X=1*8-7 :: Y=R#8-7 :: PP=X :: UP=X+(L-1)*8 
CALL SPRITE(#1,129,7,Y,X}) 

CALL KEY(S,KF,ST):: IF ST=0 THEN 2160 

IF KF<>8 AND KF<>9 AND KF<>13 THEN 2220 
IF KF=8 THEN IF X5>PP THEN X=X-8 

IF KF=9 THEN IF X<UP THEN X=X+8 

IF KF=13 THEN 2240 

CALL LOCATE (#1,Y,X}:: GOTO 2160 
COLO=INT(X/8)+1 :: CALL HCHAR(R,COLO,KF) 
IF X<UP THEN X=X+B :: GOTO 2210 

FOR J=I TO ItL.-1 

CALL GCHAR(R,J, CARAT) 

B®=B®£2CHR$ (CARAT) 

NEXT J 

CALL DELSFPRITE (#1) 

SUBEND 


: GOTO 310 
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Prova riflessi e Simon 


di Sandro Del Bello 
e Anna Maria Paganini 


Ì | primo programma consiste di tre prove, al 
termine delle quali il giocatore potrà avere 

una valutazione dei suoi riflessi. 
Prima prova: si dovrà, nel minor tempo possibile, 
schiacciare il tasto corrispondente alla lettera 
che compare al centro del display. 
Questa prova risulta piuttosto impegnativa in 
quanto non è facile riuscire a compiere l'opera- 
zione nel tempo massimo consentito; per questo 
si consiglia di partire con le mani già vicine alla 
tastiera. 
Meno velocemente verrà premuto il tasto, mag- 
giori saranno le penalità assegnate, fino ad un 
massimo di dieci. 
Seconda prova: sul display si susseguono rapida- 
mente le cifre dallo zero al nove; la prova riflessi 
consiste nel premere con decisione il tasto del 
nove nello stesso istante in cui tale numero com- 
pare. 
Ciò andrà eseguito per tre volte a differenti velo- 
cità. Ad ogni errore del giocatore verranno som- 
mate al punteggio complessivo cinque penalità. 
Terza prova: un quadratino salterà da uno spazio 
all'altro del display ed il giocatore dovrà fermarne 
la corsa premendo il numero, dallo zero al nove, 
corrispondente allo spazio in cui momentanea- 
mente si trova. Qui non vi è un massimo di penali- 
tà, in quanto la prova non termina fino a quando 
il giocatore non avrà bloccato il quadrato; però 
ogni salto costerà cinque punti di penalità. 
Al termine delle tre prove comparirà il punteggio 
totale conseguito e la valutazione associata, da 
pessimo a ottimo. 

Il secondo programma è una variante del gio- 

co del Simon. Questa versione consiste nel ricor- 
dare e ripetere un numero sempre maggiore di 
cifre, fino all'inevitabile errore. All'inizio il Compu- 
ter chiederà il nome del giocatore per verificare 
la sua eventuale presenza nella classifica dei cin- 
que migliori punteggi fino a quel momento con- 
tenuti in memoria. 
In caso positivo verrà visualizzato il record perso- 
nale che il giocatore ha ottenuto precedente- 
mente. Al termine della prova, se avrete ottenuto 
un punteggio superiore a quello minimo attuale, 
la classifica verrà aggiornata con un eventuale 
vostro inserimento. Dopo un po' di pratica non è 
difficile arrivare intorno alle venti, venticinque ci- 
fre memorizzate; i bravissimi manderanno in tilt il 
calcolatore se supereranno le trenta. 


Commenti al listato n° 4 


Il listato occupa tutta la Memoria disponibile. 
Per questo le valutazioni dei riflessi andranno inse- 


rite in modo RUN. 

La “subroutine 30” che si incontra frequentemen- 
te ha la funzione di pausa variata volta per volta 
tramite il parametro L. 

Il programma dovrebbe risultare sufficientemen- 
te leggibile. Si può chiarire che $ dapprima con- 
tiene le ventuno lettere dell'alfabeto italiano, fra 
le quali verrà casualmente selezionata quella 
che comparirà sul display; in seguito, e pertutto il 
programma, tale variabile conterrà la stringa di 
carattere “penalità”. 

P,QeDindicanole penalità totalizzate rispettiva- 
mente nella prima, seconda e terza prova, men- 
tre W rappresenta la loro somma. 

Riga 7: il ciclo su F seleziona le tre differenti veloci- 
tà della prova. 

Riga 16: l'uso dei due IF consecutivi consente di 
interrompere il ciclo soltanto nel caso in cui il 
bersaglio è stato colpito. 

Righe 19-20: le penalità complessive vengono 
divise per otto per assegnare la valutazione del 
punteggio ottenuto. 


Commenti al listato n° 2 


Righe 10-40: per i soliti motivi di spazio vengono 
considerate solo le prime sette lettere del nome 
del giocatore. 

Da notare che F = 1 se il giocatore non è già in 
classifica. 

Righe 50-210: scelta casuale della cifra da ag- 
giungere alla sequenza. Il modo macchinoso 
con cui è fatta l'operazione dipende dal fatto 
che $ è già occupato dalle cifre precedenti. 
Righe 220-250: calcolo del punteggio minimo per 
verificare l'entrata in classifica. 

Righe 250-270: in caso positivo, se il giocatore era 
già presente, viene aggiornato il suo record. 
Righe 275-295: stampa della classifica e ... via per 
un'altra prova. (9. 


Listato 1 - Il programma del Prova riflessi. 


Seguito listato |]. Seguito listato 2 


d: IN a: 


40 NEXT I:F=1 
(” *RINT '® PREMI EXE 
INT (5*RAN#) 


):PRINT “ERRORE A 


'PROSEGUIAMO 


GOTO 

IF L>N(I+1)+1;N(I+1 
PRINT "Classifica 

FOR C=1 TO 9 STEP. 

IF N$(C)#"":PRINT N$(C 
NEXT C:G0T0 19 


GUIDA MONACI 
LO se 


(GUIDA MONACI. 
cre sono mete attratta tane 


SINCLAIR 


SPECTRU 
Xi id 80 “) 


INVIARE £ 6000 PER FAVOLOSO CATALOGO 


ILLUSTRATO DI ACCESSORI, PROGRAMMI, < 18BR1 


MICRO SHOPa" 


VIA ACILIA 14 25 ACILIA, ROMA 
4 _— —- 


reL.(06). 605€ 085, 6054595 


DIFFUSI IN ITALIA 
E NEL MONDO 


)0187 Roma via F.Crispi.10 tel (06) 483401 | 20145 Mitano va V.Mont:.86 tei (02)3458567 
Tetex 613462 MONACI | Telea 332549 MONAL 


1984 * Bit- 29 


L'ADVANCE 86A /START 
PUO' AIUTARLA A RADDOPPIARE 
LE SUE VENDITE DI PC 


--_-——--------- 


| PERCHÈ È L’UNICO 
VERO PC 16 BIT 
ASOLO 1.400.000* | 


CON MICROPROCESSORE 8086 E CON 3 


e 128 O 256KB DI MEMORIA UTENTE CON CONTROLLO 
DI PARITA’ 
*40KB DI MEMORIA ROM 
e MEMORIA GRAFICA A 16 COLORI 
* ALTOPARLANTE INCORPORATO 
* HARD E SOFTWARE 100% IBM/PC COMPATIBILE i 


e DIAGNOSTICA, BASIC E SISTEMA OPERATIVO PER CASSETTA 
CONTENUTO NELLA ROM 
è, * /LBASICCOMPRESO 
QQ * UN SET DI 256 CARATTERI IN ROM 
ì ® VISUALIZZAZIONE TV, RGB E MONITOR COMP/SYNC 
5 A COLORI O MONOCROMATICO 
se ®* COMPLETA GESTIONE DEL VIDEO 
® QUATTRO PAGINE DI VIDEO 
e TESTO 80x25 0 40x25 
e RISOLUZIONE GRAFICA 300x200 O 640x200 
* PORTA PER CASSETTA, PER PENNA OTTICA, PER PENNA GIOCHI 
(JOYSTICK) E CON INTERFACCIA CENTRONICS 


IN PIU' L'ADVANCE 86A /START PUO' UTILIZZARE STAMPANTI DI 
QUALUNQUE TIPO PURCHE' UTILIZZINO INTERFACCIA CENTRONICS; 
E'ESPANDIBILE DALL'UTENTE NEL MODELLO CON 2 FLOPPY DA 
320KB CIASCUNO O NEL MODELLO CON HARD DISK DA 10MB; PUO' 
ESSERE CORREDATO DI COPROCESSORE ARITMETICO 8087; 
UTILIZZA CUSTOM CHIPS ED ELETTRONICA DELLA FERRANTI 
INSTRUMENTS E DRIVES DELLA SHUGART ASSOCIATES. 


2 QUANDO DI UN PC SI PUO’ DIRE TUTTO QUESTO NON E’ ] 


a NECESSARIO AGGIUNGERE ALTRO. 
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CONDOR INFORMATICS ITALIA SRL 
VIA GRANCINI 8 


20145 MILANO Chiunque desideri avere informazioni su un'eventuale concessione di 


TEL. 02/43.4562-4987549-4987.713 vendita può telefonare o restituire questo tagliando. 
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| NOME 

| 

| SOCIETA’ 

INDIRIZZO | 
| 


| , 
ù *IN FUNZIONE DEL CAMBIO DEL DOLLARO | CITTA TEL i j 
uu md. ùuÈ»È»ÈÈ iii; quiz 


SERVIZIO SOFTWARE 


HA 
. 


i 


Programma 


Gioco della scimmia 
Spaccamattoni 


Planel 


Rompicapo 
di Rubik 


Breakout 


Apple-Chef 


Provariflessi 
Tiny FORTH 
Alì Babà 
1X2 


Per richiedere | programmi in contrassegno, pagando direttamente al postino la cifra indicata, inviare ll seguente tagliando 


P 
î 


= Bit propone ai propri lettori 
i dischi o le cassette 

dei programmi pubblicati. 
| programmi, 

provati e garantiti, 

: sono di immediato utilizzo. 


Sistema 
VIC 20 


Apple Il 


CBM 4032 
CBM 3032 


CBM 3032 
Apple Il 

VIC 20 
Apple Il 

ZX Spectrum 
PET 3032 


Codice 
VI381A 


AP382C 


PE391A 
PE392B 


PE393A 
AP422C 
VI421A 
AP452A 
SP451B 
PE451C 


Supporto 


Cassetta 


Disco 


Cassetta 
Disco 


Cassetta 
Disco 
Cassetta 
Disco 
Cassetta 


Cassetta 


Spedire in busta chiusa a Gruppo Editoriale Jackson - Via Rosellini, 12 - 20424 Milano 


------------------------------>@ 


Inviatemi i seguenti nastri e/o dischi con i programmi 


pubblicati su Bit. 


cod. CLTTTI] lira 
cod. CITTTIT] "* ‘RE RORTRE IR OR 
cod. CLLLLL] 7. ]| RELITTI I 
cod. CLITIID] i iazaa 


Spese postali (contributo fisso) L. 2.000 


TRON: ica 


che pagherò al postino alla consegna del pacco 


® GRUPPO EDITORIALE JACKSON 


Il Questionario di Bit 


n. 
Città CAP. Prov. Tel. 
41. Età 
D sotto i 15 anni 
O trai 15ei 20 
O trai 20ei30 
(barrare la casella che serve) 
O trai 306145 
D oltre i 45 anni 
2. Professione 
2.4.1 si in cui operi ha attinenza con l'Informatica? 
DOSI 
O NO 


In caso affermativo precisane il ramo d'attività: 

vendita o assistenza tecnica di grandi elaboratori, di mini, 
di microcomputer; centro elaborazione dati; altro 
(specificare) 


2.2. Possiedi un personal computer (anche in società con 
amici)? 
DOSI 


O NO 
Se SI indicane la marca ed il modello: 


2.3. Usi un elaboratore sul posto di lavoro? 
ES 


O NO 
Se SI, si tratta di un personal? 
DOSI 


O NO 


1. Come definiresti la tua preparazione in Informatica? (scegli 
fra scarsa, mediocre, sufficiente, buona) 


2. Qualunque ne sia il grado, tale preparazione da cosa deri- 
va” 
O dastudi fatti 
presso una scuola 
secondaria (ITI, ITC) 
O dalla frequenza di un 
Corso di laurea in 
Scienza dell'Informazione 
O idem c.s. per Ingegneria 
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elettronica 
O daun corso universitario 
O da corsi aziendali 
O dacorsi privati 
O dastudi personali. 
3. Quali linguaggi di programmazione conosci in modo non 
troppo ME” (indicarne anche più d'uno) 


Pascal 
FORTRAN 
COBOL 
FORTH 
Logo 

altro (specificare): 


O00000 


4. Quali di questi “package” conosci ed utilizzi, almeno saltua- 
riamente? 
O un word processor 
(specificare) 


O VisiCale 
O Multiplan 
O Personal Data Base 
O dBase Il 
O altro (specificare): 


5. Possiedi qualche conoscenza di elettronica e di hardware? 
O SI 
O NO (0 molto vaga) 


SEZIONE C 


41. Come definiresti il tuo interesse per il personal computer? 
(segnare eventualmente anche due caselle) 

C amatoriale 

O di studio 

O professionale 

O altro (specificare): 


2. Come utilizzi prevalentemente il personal computer? (se- 
gna una sola casella) 

O per diletto 

O per lavoro 
3. Dove adoperi normalmente il personal computer? 

O acasa 

O in ufficio 

O ascuola 

O altro (specificare): 


Il Questionario di Bit 


A. Sei iscritto a qualche club di personal computer? 


O NO 
Se SI specificare quale: 


5. A quale di questi argomenti sei maggiormente interessato 
(segnare al massimo 3) 

O hardware 

O software di base e 

linguaggi 

O programmi pratici 
O principi d'informatica 
e criteri teorico-prati- 
ci di programmazione 
O recensioni di sistemi e 
periferiche 
O giochi 
O package e loro uso 
O altro (specificare): 


SEZIONE D 


4. Dovendo dare un giudizio globale sulla comprensibilità 
della rivista, come ti esprimeresti? 
O è scarsamente 
professionale 
O haavolte argomenti 
difficili ma spiegati 
per lo più chiaramente 
O è troppo scarso lo spazio 
per principianti 
O è fatta per soli iniziati 
O altro (specificare): 


2. Recentemente, lo avrai notato, nella “Vetrina” si è introdotto 
un certo spazio per notizie su varie manifestazioni legate all'in- 
formatica, anche al di fuori delle fiere e mercati (esempio, 
Mostra “Jarry e la Patafisica”, Convegno su Microinformatica e 
medicina, interviste ad operatori del settore ecc.). Cosa ne 
pensi (dai un breve giudizio analitico)? 


3. Una novità ‘83 è stata poi l'istituzione del fascicolo Riservato 
Personal. 
A parte la qualità (su cui voterai più avanti) 
che giudizio esprimi su tale iniziativa? 

O andrebbe ampliata 

D valida senza condizioni 

D ruba troppo spazio a cose 

più interessanti 

O nonmi interessa affatto 
4. Esprimi un voto da 1 a 10 sulla qualità delle varie sezioni o 
rubriche: 


EDITORIALE 

BIT FLASH 

VETRINA 

HARDWARE 

BITEST 

SOFTEST (package) 
SOFTWARE (linguaggi 

e criteri) 

SOFTWARE (applicazioni ) 
RICETTARIO 


FEEDBACK 
SUPERBIT/RIS. PERSONAL 
DIGIDATTICA 
5. Se dipendesse da te, quale rubrica aboliresti? 


6. Cita due rubriche che, invece, vorresti ampliate e potenzia- 
te: 

a) b) 

7. Precisa infine due argomenti che ti piacerebbe venissero più 
di sovente trattati da Bi. 


SEZIONE E 


4. Utilizza infine queste poche righe per segnalarci liberamen- 
te, desideri, miglioramenti, idee. 


2. Se ritieni di poter collaborare alla rivista, indica qui sotto il tuo 
campo di competenza (per una proposta più dettagliata 
scrivici): 


Desideri l'invio della nostra Guida agli autori? (si/no) 


| TRE QUIZZULLI, SE TI TRASTULLI 


QUIZZULLO n. 4 - Scrivi l'iniziale del nome del fondatore, a soli 
18 anni, della Microsoft (cognome: Gates); 

QUIZZULLO n. 2 - Crivello di Eratostene, Indovinello della Sfinge, 
Bubble sort: quale di queste tre cose non merita il nome di 
algoritmo (indicare la sola lettera iniziale); 

QUIZZULLO n. 3 - Tra questi linguaggi (FORTRAN, BASIC, FORTH) 
quale supporta la ricorsività? Scrivere stavolta la penultima 
lettera. 

In definitiva, unendo di seguito le tre lettere trovate, ottengo la 
sigla: 


Vivissimi ringraziamenti a quanti son giunti fin qui. 


Data 
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LA PRATICA DELL'APPLE 
Il libro ha l'obiettivo di facili- 
tare l'apprendimento del lin- 
guaggio Basic Applesoft con 
numerosi esempi ed esercizi 
con soluzione 

130 pag. L. 10.000 

Cod. 341D 


COMPUTER GRAPHICS 
Linguaggi ed algoritmi, siste- 
mi grafici, integrazione 
CAD/CAM, didattica e for- 
mazione professionale, 
computer graphics ed edito- 
ria, CAD in architettura. 

512 pag. L. 45.000 

Cod. 529C 


VOI E IL VOSTRO 
COMMODORE 64 

Alla scoperta del C 64: 
dall'apertura della scatola 
alla programmazione della 
grafica e del suono. Con 
consigli pratici e'programmi 
testati dagli autori. 

256 pag. L. 22.000 

Cod. 347D 


La Biblioteca 
che fa testo 


ALLA SCOPERTA 


DEL VIC 20 
Perfetta integrazione al pri- Vv 
mo volume “Impariamo a INTERFACCIAMENTO 
programmare in Basic con il DELL'APPLE = — — =— —— == cm dm me cme e ce x cn 
VIC/CBM" per ciò che ri- CEDOLA DI COMMISSIONE LIBRARIA 
guarda gli argomenti che Il libro indispensabile a UNB VOGLIATE SPEDIRMI 
trattano i file su disco e cas- uso “esterno” dell'APPLE 
setta, la stampante VIC 1515, controllo dei dispositivi, tem- | 
i cartridge. perature, soglie luminose, li- 
300 pag. L. 22.000 quidi e inoltre, modem sam-J 
Cod. 338D panti seriali e interfacce 
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di Franco Antichi 


| | programma è per il piccolo Casio PB 100 
che è utilizzabile sia con la versione normale 
che, meglio, con la versione avente la memoria 
espansa. Si tratta di un notes o agenda che può 
trovare anche altre applicazioni, specie con le 
aggiunte che indichiamo in coda al listato. 
Vengono utilizzate le memorie che vanno dalla 
Z(1) in poi in modo che il PB 100 resta disponibile 
e utilizzabile per altri programmi, senza interferen- 
ze o sovrapposizioni di sorta. Nel mio caso ho 
utilizzato un'espansione di 24 memorie (fare 
DEFM 24) che possono essere piùo meno estese a 
seconda della necessità (basta digitare DEFM n e 
variare le linee 30 e 60). Una volta iniziato il pro- 
gramma, è sufficiente premere EXE e compaiono 
in successione i vari messaggi registrati. Per inserir- 
ne di nuovi, dopo premuto EXE, nell'intervallo che 
intercorre prima dell'apparizione di altri messag- 
gi, si deve premere ‘l” (inserimento) e comparirà 
il “?* della richiesta di INPUT; si scrive quindi il 
messaggio (massimo 30 lettere). Analogamente 
per cancellare la scritta che appare sul display è 
sufficiente premere EXE e poi subito dopo “C” 
(cancella). Il programma può essere variato per 
far uscire i Messaggi in successione continua (li- 
nea 20 aggiungere un ;) ma a mio giudizio con 
meno funzionalità. AI termine dei messaggi ap- 
pare la scritta, che può essere omessa, “me n°”, 
che indica il numero di memorie ancora disponi- 
bili. Quando le memorie di output raggiungono 
le 24, compare la scritta “FULL”. Inserendo un GO- 
TO 7 alla linea 30 (togliere END) il ciclo può conti- 
nuare indefinitamente. Aggiungendo le linee ci- 
tate in coda è possibile l'output dei soli messaggi 
che contengono i dati richiesti. (esempio, con 
i A escono i messaggi contenenti una A, 
ecc.). 

Non ho contato i passi del programma: ritengo 
però siano meno di 400. Perciò con il PB 100 
espanso a 1568 passi, si hanno circa 1200 passi 
restanti pari a 150 memorie di 7 lettere = 1050 
lettere in totale; rimane quindi ancora molto spa- 
zio per chi vuole utilizzare il PB 100 negli altri nove 
programmi. 


Commenti 

Input - Le linee 50-80 servono per l'input dei mes- 
saggi. Il messaggio viene caricato in $ e poi ven- 
gono contate le lettere; se il numero delle lettere 
è multiplo di 7 viene inserito uno spazio in coda, 
che servirà da segnale di fine messaggio. Vengo- 
no contate le variabili da usare (x) e caricate 
nella $ con il ciclo FOR-NEXT delle linee 65-80. 
Output - Le linee 7-30 servono per l'output: le va- 
riabili vengono sommate in $ fino a quando (li- 
nea 10 - IF ecc.) viene aggiunta la variabile con 
meno di 7 lettere; a questo punto il messaggio 
viene stampato. Il ciclo 21-26 serve per dartempo 
all'operatore di decidere se inserire, cancellare o 
meno e può essere allungato o accorciato va- 
riando la linea 21. 


Canceilazione - Le linee 100-125 servono per la 
cancellazione: viene cancellato il messaggio 
che compare in quel momento sul display. ll “bu- 
co” delle variabili cancellate viene riempito spo- 
stando verso la Z(1) tutte le restanti variabili Z$. 

Per inizializzare il programma occorre fare Z(1)=1 
e RUN 50 inserendo la prima parola (esempio 
AGENDA) poi si procede come detto senza altri 
accorgimenti. 

Estensione del programma - Con l'aggiunta del- 
le linee in coda al listato si può ottenere l'uso forse 
più interessante di questo programma con l'usci- 
ta di dati particolari. Per esempio, inputando un 
nome, anche parzialmente, od una lettera oppu- 
re un numero, il PB 100 analizza tutti i messaggi 
presenti e stampa solo quelli contenenti tale let- 
tera o dato. Può essere utilizzato così come agen- 
da telefonica i cui nomi possono essere scritti a 
caso e fatti comparire in ordine alfabetico, 0 co- 
me un elenco prezzi (si scrive il nome e compare 
nome e prezzo), o come piccolo dizionario di 
termini tecnici. a 


Listato 1 - Per iniziare 
battere: Z(1)=1 DEFM 
24 (0 più). Il primo mes- 
saggio si scrive usando 
RUN 50. 


Listato 2 - Programma 
per output selezionato. 
Inserendo un dato esco- 
no tutti i messaggi che lo 
contengono. Variare il 
listato 1 come riportato 
in queste linee. 
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Figura 1] - Esempio gra- 
fico di un impianto for- 
mato da 8 reparti pro- 
duttivi. Ciascuna attivi- 
tà (reparto) è individua- 
ta dalle sue coordinate 
nella matrice di 17%7 
caselle, e può prevedere 
fino a due uscite. 
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Modelli simulatori 


Una fantastoria che vi guida passo passo all'uso di un programma che permette di realizzare 
il grafo di un progetto e poi procedere alla simulazione, utilizzando HP 86A e la stampante 
82905B. 


di Francesco Moscarella 
Antefatto 


[a orger cercò di dare ordine al turbine di pen- 
sieri che lo assalivano. Man Friday era stato 
più prezioso di quello che aveva previsto ed ave- 
va portato via con sé buona parte della compe- 
tenza e capacità decisionale del suo Consiglio di 
Amministrazione. 

Solo in quel momento la realtà gli risultò evidente 
riflessa nei volti inespressivi che coronavano il lun- 
go tavolo di ebano. 

Pensò che forse negli ultimi anni aveva fatto pe- 
sare troppo la convenienza politica nella scelta 
dei suoi collaboratori. Questa volta avrebbe do- 
vuto decidere da solo. 

Sciolse il Consiglio e si diresse verso il suo ufficio, 
attraversando corridoi che, data l'ora, erano vuoti 
e silenziosi. 

Seduto nella sua poltrona, fece in modo che la 
preoccupazione fosse sostituita dalla determina- 
zione e fiducia nei propri mezzi che erano le leve 
principali del suo successo nella vita. 


Le definizione del problema 


Con pochi tratti schematizzò la nuova linea di 
produzione, rappresentando con quadrati gli ot- 
to reparti che la formavano. Tracciò poi cinque 
cammini fra i reparti ad indicare i differenti flussi di 
lavorazione previsti (vedi figura 1). 


Stimò la capacità produttiva, i costi ed i volumi. 
Cercò poi di prevedere gli effetti di un lungo pe- 
riodo produttivo sulle code e sulle efficienze dei 
reparti. 

Gli parve di avere individuato alcuni punti critici; 
ma anche dopo lunga riflessione, non riuscì ad 
essere sicuro di aver raggiunto un risultato con- 
creto. 

Si ricordò allora di un noiosissimo studio che ave- 
va ricevuto dal gruppo dei modelli matematici, 
quei “saputissimi” individui che nella pratica non 
avrebbero saputo piantare un chiodo in un muro. 
Si ricordava vagamente di alcuni grafici simili a 
quelli che aveva appena disegnati. Trovò, non 
senza fatica, il plico in questione quando ormai 
disperava di riuscirvi. 

Rilesse il rapporto con cura e si convinse di avere 
nelle mani qualcosa di utile. 

Era solo in azienda ma fidava di sapersela cavare 
da solo. Prese il disco allegato al plico, ruotò la 
sua poltrona di 90 gradi e attivò il suo HP 86A. 


Procedura di utilizzo del programma 


La key #4 

Al video comparve il menu cone sue chiavi (vedi 
figura 2). 

Forger premette la key #1 per accingersi a defini- 
re il modello. Il programma richiese il nome del 
progetto e i parametri produttivi di ciascun repar- 
to (vedi figure 3 e 4). 


Figura 2 - Le sei key del 
programma con le rela- 
ive opzioni. 

key#l:preparazione modello simulatore PONS CORE 
key#2:rappresentazione grafica del modello 


key#3:simulazione 


key#4:risultati statistici della simulazione 
key#5:descrizione attivita’ 


key#7:fine del programma 


zione attivi 


dim .gruppo 


ver 


osto/unita 


a t Td bs} 


Pfreparto n2 


ord.x: 4 
rerd.y: 4 


dim .gruppo las 


tempo lavora 


Dopo aver inserito informazioni sull'ottavo repar- 

to, Forger rispose con un “no” alla richiesta: 
+ATT (SI/NO)? 

Il programma registrò le informazioni su disco e 

tornò al menu. 

La key #2 

Forger usò la key #2 per ottenere un grafico al 

video e alla stampante del modello che aveva 

appena creato. 

La key #3 

Con questa key Forger informò il programma sulla 


modello 


reparto n2 


nil 


?n0 


simulatore 


reparto n3 


freparto n4 


?2sì 


lunghezza del periodo da simulare. 

Al video comparve una rappresentazione grafica 
del primo reparto con il tempo corrente, la produ- 
zione totale, il costo e il tempo di inattività per 
mancanza di materiale da lavorare. 

Durante la simulazione si servì di tre key per: 

e key #1: ottenere risultati statistici parziali (figura 
5); 

e #2: indicare il reparto da seguire al video; 
e key #3: ottenere la stampa del grafico (figura 
6). 


Figure 3 e 4 - Esempi di 
descrizione delle attivi- 
tà. Il reparto n. ] è una 
sorgente (la sua prima 
lettera è >) e fornisce 
un pezzo alla volta in tre 
unità di tempo. Il repar- 
to n. 2 lavora 2 pezzi per 
volta in 4 unità di tempo. 
Una è inviata al reparto 
n. 3 e una al reparto n. 4. 
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tabella riassuntiva risultati simulazione 


tempo simulazione: 50 


descrizione t.input mx.input t.produz t.costì attesa inp 


16 48 (0) 
16 64 12 
DI 8 47 
i 28 22 
+ 6 42 
8 32 34 
4 
8 


>reparto ni (6) 
reparto 16 
reparto 
reparto 
reparto 
reparto 
reparto 
reparto 


Ae o 


20 26 


24 37 


ON=ecQOUOO 
©) 


> AN de «| 


> 5 tabella riassuntiva risultati simulazione 
Figura 5 - Sommario 


statistico dopo 50 e 56 


unità temporali (e qual- tempo simulazione: 56 
che minuto di elabora- 
zione). descrizione t.input f.input mx.input @mt.produz t.costi attesa inp 
Le colonne indicano: to- 
tal past ; = id >reparto nl 0) 18 54 (0) 
ale pezzi provenienti da reparto n2 18 o 18 72 13 
altre attività, lunghezza reparto n3 o 16 50 
della coda alla 50° un. di reparto n4 O 32 24 
tempo, max. lunghezza reparto n5 1 ? #5 
” = 
della coda osservata, fi è è sa Hi 
. on dl 
produzione totale, costo reparto. ni 1 24 40 


totale, tempo di attesa 
pezzi. 


Figura 6 - Istantanee nel 
corso della simulazione, 
ottenute con la key 3. In 
entrata ed in uscita le ci- 
fre in ‘‘reverse’’ rappre- 
sentano i totali in ingres- 
so ed in uscita fino al AICITIRITZANI 
quel tempo, le cifre sot- 
tostanti i valori istanta- 
nei. 


modello: ‘nt tempo 


simulazione 


modello tempo 


reparto n2 
prod.tot: 
cost.tot 48 


t.attesa: NO 


O) 
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tabella riassuntiva risultati simulazione 


tempo simulazione: 101 


descrizione t.input 
>reparto ni (0) 
reparto n2 S35 
reparto n3 16 
reparto n4 16 
reparto n5 6 
reparto né 21 
reparto n7 16 
reparto n8 22 


fe descrizione 


1 >reparto nl 1 3 


mx.input 


d.Qgrup t. 


t.produz t.costi attesa inp 
(6) 
20 
90 
39 
76 
60 
26 
57 


> (de © 


+ (MMM i 


lavor %out cost/un attivita’uscit. 
reparto n2 


nil 


o, reparto n2 4 “4 2 4 


50 4 
50 


reparto n3 
reparto n4 


eeLCLELLL LL LL 0 0 0 L00600 11000 


3 reparto n3 6 A 2 


4 reparto n4 (-] 6 1 3 


reparto n5 

reparto né 
100 4 reparto né 
(0) nil 


5 reparto n5 8 2 1 3 


100 3 reparto n7 
(0) nil 


6 reparto né 9 4 è 3 


50 4 


50 


reparto n7 
reparto n8 


9 0 990 00 A 0 a 0 0 ee 0 0 e e e e e è è e è è è è è è è è è e è e è 00000000 


reparto n7 lt. 2 1 5 


100 5 reparto n8 
(6) nil 


8 reparto n8 15 4 2 3 


(0) 3 nil 
(9) nìil 


ARIE LELCLOLCOELEOCKEELKLELOCCKAAKSKEKECKOOLOGOLO CEE Cos ope E LA CCL L00006 


Dopo 30 minuti la simulazione era terminata. For- 
ger premette la key #4 ed ottenne un tabulato 
dei risultati statistici (figura 7). 

La key #5 

Si servi di questa key per ottenere alla stampante 
una tabella dei parametri delle attività così co- 
me le aveva impostate (figura 8). 

La key #7 

Questa key lo deluse, perché ne risultò solo un 
cortese messaggio di commiato. 


La morale 


Forger raccolse gli stampati, spense il compu- 
ter e chiamò il suo autista. 
Nella riunione del giorno successivo informò il 
consiglio della decisione che aveva preso preci- 
sando che essa era stata dettata dalla sua de- 
cennale esperienza e fiuto Manageriale. Natural- 
mente si “dimenticò” del piccolo aiuto ottenuto 


dal suo HP e trattò con la solita indifferenza i suoi 
collaboratori del gruppo dei modelli matematici. 
Morale: 

"Analisti, non fidatevi dei vostri computer; essi tra- 
mano alle vostre spalle e, quando sono spenti, 
sognano una buona occasione per pugnalarvi”. 


Conclusioni e note 


Il programma è scritto in BASIC, ma è organiz- 
zato in segmenti e procedure e non contiene 
GOTO numerici (non esiste antidoto al contagio 
Pascal... per fortuna). 

La figura 9 riassume la struttura del programma 
per i livelli delle sue procedure e le figure 10, 11, 
12, 13, la sua rappresentazione grafica con le 
d-chart per il primo livello descrittivo. 

Come i diagrammi di struttura, le d-chart rappre- 
sentano un miglioramento rispetto ai flow chart, e 
mostrano, a mio parere un vantaggio non tra- 


Figura 7 - Tabella risul- 
tati statistici alla fine 
della simulazione. Per 
una descrizione delle co- 
lonne vedi figura 5. 


Figura 8 - Descrizione 
parametri attività. Nel- 
l'ordine: descrizione let- 
terale (fino a 15 lettere), 
coordinate nella matrice 
17%7, n. pezzi lavorati 
simultaneamente, tempo 
di lavorazione, % pezzi 
verso le due uscite, costo 
per pezzo, descrizione 
delle attività che ricevo- 
no i pezzi lavorati. 


1984 * Bit - 39 


Figura 9- Riassunto del- 
la struttura del pro- 
gramma e delle sue pro- 
cedure. 
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MODELLI SIMULATORI 


FRE-MODELLO 


Modi f iche | Nuove-attivita' | 


GRAF-MODELLO 


SIMULAZIONE 


| Risultati-p | 
Inprattivita' 
Attivita’-da-seguire 


AGGIORNAMENTO-ATTIVITÀ” 


Att-occupata 


scurabile. Con le d-chart infatti la traduzione di 
un programma in BASIC o in Pascal è più sempli- 
ce, perché questo metodo si basa su uno svilup- 
po verticale delle procedure dello stesso livello. 
Nei diagrammi di struttura questo sviluppo è inve- 
ce orizzontale. 

Riporto di seguito alcune regole per la corretta 
interpretazione delle d-chart, ripromettendomi, 
se Biitlo riterrà opportuno, di tornare sull'’argomen- 
to con un articolo specifico: 


e la lettura procede dall'alto fino ad un nodo 
indicato con un quadratino o un rombo che rac- 
chiudono una lettera; 

@ in corrispondenza di un nodo si scende a destra 
fino al prossimo nodo. Se il nodo era rappresenta- 
to da un rombo si procede a destra solo se la 
condizione indicata sul ramo del rombo è vera; 
e in fondo alla diramazione di un nodo vi è sem- 
pre un triangolo con una lettera. Se il vertice del 
triangolo è rivolto verso il basso si torna al nodo 


Figure 10, 11, 12, 13 - 
D-chart del primo livello 
descrittivo. 


MODELLI SIMULATORI 


repeat until keypress 
VARIABILI i 


RICHIESTA KEY 


BINARI 


ma badi L'mmeicaeta MODELLO | 
Ò ' 


Poanena 


RAPPRESENTAZIONE GRAF 


| SIMULAZIONE | 
[arsunzari SIMULAZIONE | 


anni cin 


DESCR.ATTIVITA' 


e____—__—_——___—__—_—_+—+—++—— -.— 


H 
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Figura 11. 
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PRE-MODELLO 
INPUT MODELLO 
o 


Cl. il file non esiste 


NUOVE -— ATTIVITA' 
| ARCHIVIAZIONE O 
| MENU | 


indicato dalla lettera e si esegue l'istruzione sotto 
il nodo. 
Se il vertice del triangolo è rivolto verso l'alto sia- 
mo in presenza di un loop che va eseguito fino a 
che la condizione sul nodo di diramazione non è 
più vera o fino a che il FOR...NEXT è completato. 
Ancora qualche nota per un utilizzo ottimale. 
Il programma utilizza delle istruzioni speciali non 
previste nel BASIC residente, ma che sono carica- 
te in memoria con i binari “UTIL/1” e “GDUMP” 
inclusi nel disco sistema fornito dalla HP. Questi 
programmi devono essere dunque presenti sul 


NUOVO - FILE 


inci 
\/ 


dra attivita$(i)# "*" 


AL - VIDEO 


MODIFICHE 


disco che contiene il programma di simulazione. 
È possibile definire fino a 119 attività (reparti) con 
una matrice 17*X7 come indicato nella figura 2. 
Le attività sorgenti non necessitano di un input 
per generare pezzi lavorati ed indicano pero più 
i fornitori. La 1° lettera della loro descrizione deve 
essere “>” (esempio >Reparto n1). 

Non sono previste più di due uscite per attività, 
ma questa limitazione viene superata con i bloc- 
chi “fittizi” come indicato nella figura 10. Queste 
attività/fittizie hanno come prima lettera uno ze- 
ro (esempio ORepfittizio). 


GRAF_MODELLO 


Intestazioni 
& matrice graf 


le | for i=l to 119 


Ca > attività$(i)7 "*" 


stampa ? 


Le uscite vuote vanno indicate con la parola 
“Nil”. 

| parametri per ciascuna attività sono: 
santa x,y rispetto alla matrice grafica 
17Xx7; 

e numero pezzi lavorabili simultaneamente; 

e tempo per la lavorazione dei pezzi alla voce 
precedente; 

e % pezzi verso le due uscite. Una somma delle % 
maggiore di 100 indica una divisione di un pezzo 
in più parti e una somma minore di 100, un rendi- 
mento; 

e costo per unità lavorata. 


vv} 


disegno attività 
e defin. uscite 


HARD COPY 


In fase di input, se il modello è presente su disco, il 
programma richiede le eventuali modifiche. Per 
correggere i parametri è sufficiente scrivere su 
quelli da modificare e passare con un “end line” 
sugli altri. 

Per eliminare un'attività dal modello basta asse- 
gnarle il nome “+*”. Il programma considera co- 
stanti nel tempo le stime di produttività. Ho pro- 
gettato una versione che lavori con distribuzioni 
statistiche, ma presentarla mi avrebbe costretto 
ad aprire in questa sede un argomento troppo 
specifico che avrebbe suscitato la critica di qual- 
che dotto, e la noia di tutti gli altri. 


Figura 12 
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Figura 13. 


SIMULAZIONE 


a fori=0 to 119 
1 


azzeramento varia. 
bili simulazione 
c=n.attività prev. 


case key 1 


RISULTATI ---P 


INPUT- ATT. 


Locnnm___| 


eypress 
DGRAPH 


AGGIORNAMENTO 
ATTIVITA! 


mxin(att)=in(att) 


Figura 14 - Esempio di 
rappresentazione di atti- 
vità a tre uscite, tramite 


introduzione di un 
blocco-fittizio. In gene- 
rale il blocco-fittizio può nce 


puntare ad altri blocchi- 
fittizi, non esiste quindi 
limitazione teorica al 
numero di uscite possibi- 
li per attività. 


ATTIVITA' 2 


ATTIVITA' 3 


FITTIZIO 


ATTIVITA' 4 


In un altro programma, “Simulazione di un super- conoscenza non superficiale delle tecniche più 

market”, ho considerato l'utilizzo della Poisson (in opportune... e questa sinceramente è la fase più 

seguito ne considereremo la pubblicazione, delicata di un problema di questo tipo. 

Nar). Comunque il computer rappresenta un utile stru- 
lo Per concludere, un problema di ricerca operativa mento nella valutazione di alternative e nell'ana- 

richiede una scelta oculata del modello e una lisi delle code e efficienza di un progetto. [e] 
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Listato 1 - Il programma 
descritto nell'articolo. 


PMO DEL LI SENUDLA TORI 

!' MOSCARELLA FRANCESCO 

' rtticicitriri>ii did i did pid) 

PRINTER IS 701 ® PAGESIZE 24 

GOSUB variabili 

GOSUB binari 

ON KEY# 1,"prep model" GOSUB pre_modello 
ON KEY# 2, "graf model" GOSUB graf_modello 
ON KEY# 3, "simulazion" GOSUB simulazione 
ON KEY# 4, "risultati " GOSUEB risultati 

ON KEY# 5, "descr.att." GOSUB descr_att 

ON KEY# 7, "fine progr" GOSUB fine 

GOSUB menu 

attesa_key: GOTO attesa_key 

variabili: DIM attivita$(120)[15],p$(120,7)[15)],a$(7)(40],yn$[251,1$(10] 


850 DIM tempouscita(119),occupata(119),pezzi (119),a(119),pezzit (119) 
900 DIM usc(120,2),in(119),tin(119),d$[80],attp(119) ,mxin(119) 
950 a$(1)="coord.x:" 

1000 a$ (2)="coord.y:" 

1050 a$(3)="dim.gruppo lavoraz: " 

1100 as (4)="tempo lavorazione :" 

1150 a$(5)="% unita’ verso i°%u:" 

1200 a$(6)="% unita’ verso 2°%u:" 

1250 a$(7)="costo/unita* lavor:" 

1300 v$="%" ® flagpre_modello=0 ® flaggraf_modello=0 

1350 RETURN 

1400 binari: 

1450 ON ERROR GOTO no_errore 

1500 LOADBIN "UTIL/1" ® LOADBIN "GDUMP" 

1550 no_errore: OFF ERROR 

1600 RETURN 

1650 menu: 

1700 CLEAR ® KEY LABEL 

1750 DISP HGL?$ (“programma di simulazione a blocchi",1) ® DISP 
1800 DISP "key#tl:preparazione modello simulatore" 

1850 DISP "key#2:rappresentazione grafica del modello" ® DISF 
1900 DISP “key#3:simulazione" © DISP 

1950 DISP "key#4:risultati statistici della simulazione" 

2000 DISP “key#5:descrizione attivita*’" @ DISF 

2050 DISP "key#7:fine del programma" 

2100 RETURN 


2200 pre_modello: 


2250 c=0 ® PLOTTER IS 1 

2300 CLEAR ® DISP HGL?$ ("preparazione del modello",i) ® DISF 
2350 DISP "indica con > come prima lettera le att.sorgenti " 
2400 DISF "indica con 0 come prima lettera le att.fittizie" 
2450 DISP "indica con nil le uscite non definite" 

2500 DISP "indica con * le attivita’ che vuoi eliminare" 
2550 DISP "modello:" ® INPUT modello% 

2600 ON ERROR GOSUB nuovo_file 

2650 ASSIGN# 1 TO modello$ 

2700 OFF ERROR 

2750 GOSUB lettura_file 

2800 CLEAR ® DISP "modifiche:" ® INFUT yn% 

2850 IF yn$="no" THEN new 

2900 FOR i=1 TO 119 

2950 IF attivita$(i) <> "*" THEN GOSUB al_video ® GOSUB modifiche 
3000 NEXT i 

3050 new: 

3100 GOSUB nuove_attivita 

3150 GOSUB archiviazione 

3200 GOSUB menu 

3250 flagpre_modello=1 

3300 RETURN 

3350 nuovo_file: 

3400 OFF ERROR 

3450 CREATE modello$,120, 120 

3500 ASSIGN# 1 TO modello% 

3550 FOR i=si TO 120 

3600 PRINT# 13; v$ 

3650 FOR l=1 TO 7 

3700 PRINT# 1: v$ 

3750 NEXT 1 

3800 NEXT i i 
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3850 ASSIGN# 1 TO * ® ASSIGN# 1 TO modello% 
3900 RETURN 
3950 lettura file: 


4000 FOR i=si TO 120 
4050 READ# 1 : attivita$(i1) 
4100 FOR 1=1 TO 7 
4150 READ# 1 3: p$(i,1) 
4200 NEXT 1 

250 NEXT i 

300 ASSIGN# 1 TO % 


4350 RETURN 
4400 al_video: 


4450 PLOTTER IS 1 ® GCLEAR ® FRAME 

4500 SCALE 0,49,239,0 

4550 MOVE .5,225 ® DRAW .5,35 ®© DRAW 28,35 ® DRAW 28,225 

4600 DRAW .5,225 ® MOVE 28,80 ® DRAW 32,80 ® MOVE 28,180 & DRAW 32,180 
4650 FAST LABEL 0,0, "descrizione attivita’ modello simulatore",1 
4700 FAST LABEL 0,20,modello$,1 

4750 FAST LABEL 1,60,attivita$(1),1 

4800 y=i MOD 7 ® x=INT ((i-1)/7)+1 

4850 d$=a$(1)&%" "XVAL$ (x) & IF i=120 THEN d$=a$(1) 

4900 FAST LABEL 1,90,d$,0 

4950 d$=a% (2)&" "&VAL$ (y) & IF i=120 THEN d$=a%(2) 

5000 FAST LABEL 1,100,d$,0 

S0SO0 dé$=as(I)&" "%p$(i,1) ® FAST LABEL 1,130,d%,0 

5100 d$=a%$(4)&" "&p$(i,2) ®& FAST LABEL 1,150,d%,0 

5150 db=a$ (5) &" "&p$(i,3) @ FAST LABEL 1,170,d$,0 

5200 d$=a%(6)%" "£p$(i,4) ®& FAST LABEL 1,180,d$,0 

5250 d$=a%(7)%" "t%p$ (1,5) @ FAST LABEL 1,200,d$,0 

5300 FAST LABEL 35,80,p$(i,6) 0 @ FAST LABEL 35,180,p$(i,7),0 


4350 RETURN 
5400 modifiche: 


5450 FAST LABEL 33,220, "modifiche: ",1 

5500 MOVE 43,227 # INFUT yn$ 

5550 IF yn$="no" THEN GOTO stampa 

5600 nuove: 

5650 SGCLEAR 8,220, 170,180 

5700 MOVE 1,67 ® INFUT yn$® IF yn$ <> "" THEN attivita$(i)=yn$ 
5750 SGCLEAR 160,220, 100, 110 ® l=1 ®& x=21 ® y=137 ® GOSUB modif 
S800 SGCLEAR 160,220,80,90 &® 1=2 ® y=157 &® GOSUB modif 

5850 SGCLEAR 160,220,50,70 ®© 1=3 @ y=177 ® GO0SUB modif 

5900 1=4 ® y=187 & GOSUB modì f 

5950 SGCLEAR 160,220, 30,40 ® 1=5 @ y=207 ® GOSUB modif 

4000 SGCLEAR 270,380, 150,160 ® 1=6 ® x=35 ® y=87 ® GOSUB modif 
65050 SGCLEAR 270, 380,50,60 ® 1=7 ® y=187 ® GOSUB modif 

6100 stampa: 

6150 CLEAR ® DISP "had copy:" ® INFUT stampa* 

6200 IF stampa$="si" fHEN DUMP GRAPHICS 


6250 RETURN 
Z00 modif: 
5350 MOVE x,y ® INPUT yn$@ IF yn$ <> "" THEN p$(i,l)=yn$ 
£400 RETURN 
5450 nuove attivita: 


6500 i=120 ® GOSUB al_video 

6550 FAST LABEL 30,220, "+att.(si/no)".,i ® MOVE 42,227 @ INPUT yn$ 
65600 IF yn$="no" THEN RETURN 

6650 SGCLEAR 80,110, 130, 160 

6700 MOVE 11,97 @® INPUT x®@ MOVE 11,107 ® INPUT y@ i=(x-1)X7+y 
6750 IF i<1 OR i>119 THEN i=120 ® GOTO nuove_attivita 

6800 GOSUB nuove 

6850 GOTO nuove_attivita 


6900 RETURN 
6950 archiviazione: 


7000 ASSIGN# 1 TO modello% 
7050 FOR i=i TO 120 
7100 PRINT# 1 3; attivita$(i) 
7150 FOR 1=1 TO 7 
7200 PRINT# 1 ; p$(i,1l) 
7250 NEXT 1 
7300 NEXT i 
350 ASSIGN# 1 TO x 
7400 RETURN 
mi 7500 graf_modello: IF NOT flaqgpre modello THEN RETURN 
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7550 FLOTTER IS 1 & GCLEAR ® FRAME 

7500 FAST LABEL 0,0, "grafo del modello simulatore",i 

76550 FAST LABEL 33,0, "batti cont",0 

7700 FAST LABEL 0,15,modello%,1 

7750 LOCATE 20,150, 15,80 ® FRAME &® SCALE 1,18,1,8 ® LINE TYFE 3 

7800 GRID 1,1,1,1,1,1 & LINE TYPE 1 

7850 FOR i=l TO 7 

7900 d$=VAL$ (i) & MOVE 0O,i+.5 ® LABEL d$ ® MOVE 18.7,i+.5 @ LABEL d$ 


7950 NEXT i 

BO00 DEG ®& LDIR 270 

8050 FOR i=l TO 17 

8100 d$=VAL$ (i) ©& MOVE i+.5,.3 @ LABEL d$ ® MOVE i+.5,8.7 ®@ LABEL d$ 


8150 NEXT i 

8200 LDIR O ®& k=0 

8250 FOR i=l TO 119 

8300 IF attivita$(i)="%" THEN non_disegna 

8350 k=k+1 

8400 x=INT (<{i-1)/7)+1 ® y=i MOD 7 

8450 MOVE x,y & DRAW x,y+1 © DRAW x+1,y+1 ® DRAW x+1,y ® DRAW x,y 
8500 MOVE x+.1,y+.1 ® LABEL VAL$ (k) 

8550 FOR z2=1 TO 2 

8600 FOR 1=i+1 TO 119 

8650 IF p$(i,z+5) <> attivita$(1) THEN non trovato 
8700 x (z2)=INT ((1-1)/7)+1 ® y(z)=1 MOD 7 

8750 usc(i,2z)=1 

8800 MOVE x+1,y+.5 ®© DRAW x (2),y(2)+.5 

8850 GOTO altra uscita 

8900 non_trovato: 

8950 NEXT 1 

9000 usc(ìi,z)=0 

9050 altra_uscita: 

9100 NEXT 2 

9150 non_disegna: 

9200 NEXT i 

9250 flaggraf_modello=i ® PAUSE 

9300 CLEAR ® DISP "stampa del grafico:" ® INFUT stampa$ 
9350 IF stampa$="sì" THEN DUMP GRAFHICS 

9400 GOSUB menu 

9450 RETURN 

9500 ! tielzazizianazzinicini ninni ti AAA II Atti 
9550 simulazione: 

9600 IF NOT flaggraf_modello THEN RETURN 

9650 CLEAR 

9700 DISP ® DISP "programma simulatore a blocchi" 

9750 DISP & DISP modelloè ® DISP 

9800 DISP “durante la simulazione: " 

93850 DISP “s:3î33:33333333333333333" 

9900 DISP "pause:sospende la simulazione" 

9950 DISP "cont :riprende la simulazione" 

10000 DISP "key#i:risultati parziali" 

10050 DISP "key#2:input attivita’ da sequire" 

10100 DISF "key#3:stampe durante la simulazione" 

10150 DISP ® DISF 

10200 DISP "stampa risultati parziali:" @& INPUT stampa$ 
10250 DISF "tempo totale simulazione: " ®& INFUT tempot 
10300 FLOTTER IS 1 ® GCLEAR ® FRAME & c=0 ® dg=0 

10350 SCALE 0,49,239,0 

10400 FAST LABEL 0,0, "simulazione in corso",1 

10450 FAST LABEL 0,20,modello%,1i 

10500 MOVE 13,120 ® DRAW 15,120 ® DRAW 15,40 ® DRAW 35,40 
10550 DRAW 35,200 ® DRAW 15,200 ® DRAW 15,120 

10600 MOVE 35,150 ® DRAW 37,160 ®© MOVE 35,80 & DRAW 37,80 
10650 FAST LABEL 17,80, "prod.tot:",0 

10700 FAST LABEL 17,100, "cost.tot:",0 

10750 FAST LABEL 17,120, "t.attesa:",0 

10800 FAST LABEL 29,20, "tempo :",0 © attivita$(0)="x" 
10850 FOR i=0 TO 119 

10900 tempouscita(i)=0 ® occupatal(i)=0 &® in(i)=0 

10950 pezzit(i)=0 ® attp(i)=0 & tin(i)=0 ® mxinti)=0 
11000 IF attivita$(i)(1,13]="%*" THEN nexti 
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11050 c=c+1 ® al(c)=i 

11100 IF attivita$(i)(1,1]=">" THEN tempouscita(i)=VAL (p$(1,2)) 
11150 nexti: 

11200 NEXT i 

11250 natts=a(1) 

11300 ON KEY# 1 GOSUB risultati p 

11350 ON KEY# 2 GOSUB inp_att 

11400 ON KEY# 3 GO0SUB dgraph 

11450 FOR tempo=1i TO tempot 

11500 FOR i=i TO c 

11550 natt=a(i) & GOSUB aqgqgiorn_attivita 
11500 IF in(natt)>miintnatt) THEN mxin(natt)=in(natt) 
11650 NEXT i 

11700 GOSUB attivita da sequire 

11750 IF da THEN DUMP GRAPHICS ® dg=0 

11800 NEXT tempo 

11810 FAST LABEL 33,0, "batti cont ",0 

11850 ON KEY# 1, "prep model" GOSUB pre modello 
11900 ON KEY# 2, "graf model" GOSUB graf_modello 
11950 ON KEY# 3, "simulazion"” G0SUB simulazione 
12050 FAUSE ® GO0SUB menu 

12100 RETURN 

12150 inp_att: 

12200 CLEAR 

2250 DISP "attivita" da sequire:" @® INPUT yn% 
12300 FOR 1=1 TO c 

12350 IF attivita$(a(1))=yn%$ THEN natts=a(1) 
12400 NEXT 1 

12450 RETURN 

12500 aqgiorn_ attivita: 

12550 pezzi (natt)=VAL (ps i(natt.i)) 

12600 versi=INT (pezzi (natt)*VAL (p$(natt.3))/100+.5) 
12650 vers2=INT (pezzi (natt)*VAL ‘p$(natt.4))/100+,5) 
12700 IF attivita$(natt)([1,1])="0O" THEN fittizio 
12750 IF attivitaé(natt)(1,1]=">" THEN sorgente 
12800 IF occupata(natt) THEN att occupata 

12850 att libera: 

12900 tlavor=VAL (p$(natt.2)) 

12950 IF in(natt)<pezzi (natt) THEN attp(natt)=attpi(natt)+1 @® RETURN 
13000 in(matt)=in(nattò)-pezzi (natt) 

13050 pezzit(natt)=pezzit(natt)+pezzi (natt) 
13100 occupata(natt)=1 

13150 tempouscita(natt)=tempo+tlavor 

13200 RETURN 

13250 att_occupata: 

13300 IF tempo<tempouscita(natt) THEN RETURN 
13350 in(usc(natt.,1))=in(usc(natt.1))+versi 
13400 in(usc(natt,2))=in(usc(natt,2))+vers2 
13450 tin(usc(natt.,i))=tintusc(natt.,1))+versi 
13500 tin(usc(natt,2))=tin(usci(natt.,2))+vers2 
13550 occupata(natt)=0 

13600 RETURN 

153650 fittizio: 

13700 versi=INT (in(natt)*VAL (p$(natt.3))/100+,5) 
13750 vers2=INT (in(natt)*VAL (p$(natt.,4))/100+.5) 
13800 in(usc(natt,1))=in(usc(natt.,1))+versi 
13850 in(usc(natt,2))=in(usc(natt,2))+vers2 
13900 in(natt)=0 

13950 tin(usc(natt,1))=tin(usc(natt.,1))+versi 
14000 tin(usc(natt,2))=tin(usc(natt.,2))+vers2 
14050 RETURN 

14100 sorgente: 

14150 IF tempo<tempouscita(natt) THEN RETURN 
14200 pezzit(natt)=pezzit(natt)+pezzi (natt) 
14250 tlavor=VAL (ps(natt.2)) 

14300 in(usc(natt.,1))=in(usc(natt,1))+versi 
14350 in(usc(natt.,2))=in(usc(natt,2))+vers2 
14400 tin(usc(natt.,1))=tin(usc(natt,1))+versi 
14450 tin(usc(natt,2))=tin(usc(natt.2))+vers2 
14500 tempouscita(natt)=tempo+tlavor 

14550 RETURN 

14600 attivita da seguire: 
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14650 
14700 
14750 
14800 
14850 
14900 
14950 
15000 
15050 
15100 
15150 
15200 
15250 
15300 
15350 
15400 
15450 
15500 
15550 
15600 
15650 
15700 
15750 
15800 
15850 
15900 
15950 
156000 
16050 
16100 
16150 
16200 
16250 
16300 
16350 
16400 
16450 
16500 
16550 
16600 
16650 
16700 
16750 
16800 
16850 
16900 
16950 
17000 
17050 
17100 
17150 
17200 
17250 
17300 
17350 
17400 
17450 
17500 
17550 
17600 
17650 
17700 
17750 
17800 
17850 
17900 
17950 
18000 
18050 
18100 
18150 
18200 


RETURN 


SGCLEAR 290, 380,35, 220 © SGCLEAR 10,110,90,140 
SGCLEAR 210,280,40,170 & SGCLEAR 140, 280, 160, 180 


FAST LABEL 17,60,attivita$s(natts),1 
d$=VAL$ (tempo) & FAST LABEL 37,20,d$,1 


d$=VAL$ (tin‘(natts)) ® FAST LABEL 2,110,d$,1 
d$=VAL$ (intnatts)) ® FAST LABEL 2,130,d$,0 
d$=VAL$ (pezzit(natts)) ® FAST LABEL 27,80,d$,1 


costo=pezzit(natts)*VAL (ps(natts,5)) 
d%=VAL$ (costo) ®© FAST LABEL 27,100,d$,1 


d$=VAL$ (attp(natts)) ® FAST LABEL 27,120,d$,1 


t=INT (pezzit‘(natts) *VAL (p$é(natts,3))/100) 
d$=VAL$ (t) ®© FAST LABEL 38,80,d%$,1 

t=INT (pezzitinatts) *VAL (p$(natts,4))/100) 
d$=VAL$ (t) ®& FAST LABEL 38,160,d$,1 
d$=VAL$ (in(usc‘(natts.1))) 


IF usc(natts.,1)<> O THEN FAST LABEL 38,100,d$,0 


d$=VAL$ (in(usc(natt.2))) 


IF usc(natts,2)<> O THEN FAST LABEL 38,180,d$,0 


risultati: 


CLEAR ® DISP "stampa risultati:" © INPUT stampa$ 


risultati _p: 


formato: 
RETURN 


CLEAR ® IF stampa$="si" THEN CRT IS 701 


DISP "tabella riassuntiva risultati simulazione" 


DISP "==========s=s===s=s=s==s======eeeoemooo@@osoQ@sso==" 


DISP @ DISP "tempo simulazione: ":tempo ® DISP 


DISF "descrizione"; TAB (19); "t.input Sh 
DISP "f.input mx.input t.produz "3 
DISP "t.costi attesa inp" ® DISF 
FOR j=i1 TO c 

ds=attivita$(a(j)) 

xi=tin(a(;j)) @ x2=in(a(j)) @® x3=mxin(a(j})) 
x4=pezzit(a(j)) ® x5=x4XVAL (p$(alj),5)) 
xb=attpl(a(;)) 

DISP USING formato ; d$,x1,x2,x3,x4,x5,xé 


CRT IS 1 ® DISP "batti cont" ® PAUSE 
IF tempo>tempot THEN GOSUB menu 
IMAGE 16A,6(9D, 1X) 


descr_att: . 


IF NOT flagpre_modello THEN RETURN 
PRINTER IS 701 ® k=0 
PRINT "n° descrizione x y be: 
PRINT " d.qgrup t.lavor %out cost/"; 
PRINT "un attivita’uscit." 
PRINT 

192" ..0c000000" 
FOR i=1l TO 119 

IF attivita$(i)="%" THEN no_stampa 
k=k+1 

x=INT ({i-1)/7)+1 @® y=i MOD 7 


Pirpttttrtcitttinicicinintintit—iittttttttittttttrttttiiidainnnnnnaniii 


PRINT k;TAB (6);attivita$(i); TAB (22);x;TAB (26);y; 
PRINT TAB (32);p$(i,i);TAB (41);p$(i,2);TAB (51);p$(i,3); 


PRINT TAB (56);p$(i,5);:TAB (65);p$(i,6) 
PRINT TAB (51);p$(i,4);TAB (65);p$(i,7) 
PRINT 1$;1%$;1$;1$;1%$;1%;1$;1%$ 


no_stampa: 


RETURN 
dgraph: 


NEXT i 
GOSUB menu 


dg=1 @ RETURN 


CLEAR @® DISP & DISP 

DISP HGL?$ ("fine del programma",1) 
DISP ® DISP "riferimento:bit n...." 
DISF "per informazioni: 0823/468725" 
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Statistica a due dimensioni 


Prosegue con questo numero la serie di articoli concernenti le applicazioni del calcolo 
statistico alla programmazione. 

Proseguiamo con un programma che permette la rappresentazione grafica o sintetica di 
variabili statistiche a due dimensioni. Analogamente a quanto fatto per l'articolo precedente 
della stessa serie, abbiamo ritenuto opportuno premettere una breve trattazione degli 
argomenti toccati dall'articolo stesso. 


di Umberto Barzaghi 


Parte prima 
La variabile statistica a due dimensioni 


Cc onsideriamo una popolazione i cui individui 
possano essere classificati secondo due ca- 
ratteristiche possedute. Ciascuna delle due ca- 
ratteristiche ha i quattro requisiti cui, come ab- 
biamo visto nell'articolo precedente, devono 
soddisfare anche le variabili semplici, vale a dire: 
e che l'attributo possa assumere forme Xi e Yj 
distinte tra loro incompatibili; 

e che ogni forma Xi e Yj rappresenti un concetto 
di classe; 

e che in ogni individuo della popolazione sia 
presente una delle forme Xi e Yj: 

e che la popolazione non si presenti totalmente 
omogenea 

Se i requisiti sucidetti sono soddisfatti, la variabile 
statistica costruita sulla popolazione data può 
essere considerata argomento di classificazione 
statistica; tenendo conto della duplice modalità 
degli individui, viene chiamata variabile statisti- 
ca doppia o a due dimensioni. 

Ogni individuo della popolazione viene quindi 
classificato in base ad una duplice successione 
di valori argomentali (X.Y), costituendo quindi 
una tabella a doppia entrata, che rappresenta 
numericamente la variabile statistica a due di- 
mensioni. 

Supponendo di aver creato m classi per quan- 
to riguarda il primo argomento ed n per il secon- 
do, otterremo due serie di valori (x1, x2..... xm) e 
(y1, y2..... yn) che gli argomenti X e Y possono 
assumere e che costituiscono l'elemento metrico 
della tabella: mentre gli mxn valori dif(i,j), cioè gli 
mxn valori contenuti nelle caselle della tabella, 
rappresentano l'elemento connettivo. 

Ogni valore f(i,j) rappresenta la frequenza 0 
numero di individui della popolazione in possesso 
della coppia (xj, yi) di valori argomentali appar- 
tenenti alle serie X e Y. Ovviamente la sommato- 
ria doppia perida 1ane perjda1amdif(i,j) 
deve dare come risultato la numerosità N della 
popolazione, cioè il numero di campioni esami- 
nati. 

L'ultima riga e l'ultima colonna della tabella con- 
tengono rispettivamente: 

pj= sommatoria da 1andi f(i,j), frequenza con 
cui la X assume il valore xj, qualunque sia il valore 
assunto dalla Y; 


gi = sommatoria da 1a mdif(i,j), frequenza con 
cui la Y assume il valore yi, qualunque sia il valore 
assunto dalla X. 

Le gi sono le frequenze della variabile statistica 
semplice Y (a una dimensione) ottenuta analiz- 
zando la popolazione solamente sotto la carat- 
teristica Y. Viceversa le pj sono le frequenze della 
variabile statistica semplice X. 

La media e la varianza generale della popolazio- 
ne dal punto di vista dell'argomento Y indipen- 
dentemente da X, sono date, rispettivamente, 
dalla sommatoria da 1 a n del prodotto di yi perl 
rapporto tra la frequenza qi e la numerosità dei 
campioni raccolti N; e dalla sommatoria, sempre 
da 1an del quadrato della differenza tra yi e la 
media My per il rapporto suddetto. Formule corri- 
Per ovviamente, valgono per l'argomento 
Ovviamente le sommatorie da 1 a m delle fre- 
quenze pj e da 1 a n delle gi devono dare come 
risultato la numerosità N dei campioni raccolti. 


Curve di regressione e di variabilità 


Della variabile statistica si possono dare anche 
rappresentazioni grafiche; uno dei modi più diffu- 
si è quello chiamato del diagramma di dispersio- 
ne, ottenuto rappresentando simbolicamente le 
frequenze fi delle coppie di valori (xi, y:) con cer- 
chi di superficie proporzionale a fi, in corrispon- 
denza dell'ascissa xi e dell'ordinata yi. Tuttavia 
tale metodo di rappresentazione, precluso ad 
ogni tipo di calcolatore privo di alta risoluzione, 
non permette valutazioni se non grossolanamen- 
te qualitative della struttura della popolazione. 
Assai più espressiva risulta la rappresentazione 
mediante due particolari curve ottenibili dopo 
una prima rielaborazione sintetica dei dati. 

Così come la variabile statistica semplice si 
può sinteticamente riassumere, come abbiamo 
visto, in due indici, la media e la varianza, identi- 
camente si può riassumere la tabella di figura 1 in 
due sole colonne che bastano, in generale, a 
caratterizzare la variabile a due dimensioni. 

È necessario però, innanzitutto, stabilire, sia in 
base a considerazioni teoriche, che in base ad 
intuizione, quale dei due argomenti sia da consi- 
derare indipendente e quale invece dipendente 
dall'altro. Il primo verrà indicato, nel seguito, con 
la X ed il secondo con la Y. In molti casi la distin- 


zione è semplice; in tutti quei casi in cui, per 
esempio, uno dei due argomenti è una caratteri- 
stica ambientale (ora, temperatura, macchina 
operatrice...) che condiziona il risultato di una 
certa operazione senza esserne condizionata; in 
altri casi, invece, la scelta può risultare dubbia. In 
questi casi potranno essere convenienze prati- 
che a suggerire la scelta dell'argomento indipen- 
dente X e di quello dipendente Y. 

Si consideri l'accoppiamento della prima colon- 
na della tabella di figura 1 contenente i valori 
argomentali Y, con ciascuna delle successive co- 
lonne; si ottengono m variabili statistiche sempli- 
ci, ciascuna caratterizzata da un diverso valore 
dell'argomento X posseduto dai propri individui. 

Di ciascuna di queste variabili semplici si posso- 
no calcolare i due indici fondamentali, media e 
varianza. 

Si otterrà pertanto una tabella sintetica ridotta 

a sole 4 colonne (vedi figura 2). La seconda e la 
terza colonna della tabella, prendono rispettiva- 
mente il nome di “media parziale per colonna” e 
“varianza parziale per colonna”. 
Questa tabella sintetica può essere rappresenta- 
ta tramite due curve: la curva di regressione e la 
curva di variabilità nelle quali, rispettivamente, le 
medie My e le varianze o°yi vengono riportate 
sulla scala dei valori dell'argomento fondamen- 
tale X. 

La costruzione delle due curve è assai utile per 
seguire l'andamento di un processo produttivo in 
serie; se il prodotto è costituito da un pezzo che 
deve possedere determinati requisiti, per esem- 
pio una dimensione prestabilita, si può esamina- 
re regolarmente parte della produzione e, in fun- 
zione della data - variabile indipendente -, ripor- 
tare in un grafico la media delle misure ottenute 
dalla verifica delle dimensioni dei pezzi e la va- 
rianza delle misure effettuate. La prima curva 
(curva di regressione) permette di evidenziare la 
presenza di eventuali fattoriche perturbano siste- 
maticamente la produzione, spostando progres- 
sivamente la dimensione media del pezzo. La 
seconda curva (curva di variabilità) permette di 
controllare l'eventuale insorgere nella produzio- 
ne di cause perturbanti di carattere accidentale. 


Misura della dipendenza fra gli argomenti 
di una variabile statistica doppia 


È importante studiare non tanto le variabili X e Y 
indipendentemente, ma, piuttosto, sintetizzare 
con un indice quanto più significativo è possibile 
in quali relazioni stanno le due variabili simulta- 


neamente presenti in un gruppo di individui. 

È interessante, cioè, dare un criterio per giudicare 
se e quanto le due variabili siano reciprocamen- 
te dipendenti. Questa interdipendenza è facil- 
mente rilevabile in fenomeni semplici e ripetibili; 
diventa assai problematico rilevarla quando il 
fenomeno si presenta complesso o nel caso in cui 
la dipendenza sia così tenue da poter essere 


| mascherata da altre cause perturbanti. 


L'indagine suddetta tende a stabilire se un indivi- 
duo in possesso di un valore x; dell'argomento X 
possa indifferentemente possedere qualsiasi va- 
lore dell'argomento Y o se, invece, la frequenza 
con cui assume i diversi valori di Y è dipendente 
dal valore dell'argomento X posseduto. 
Introdurremo, perciò, un indice di dipendenza 
tra gli argomenti, che rappresenterà la misura 
della dipendenza stessa. Definiamo, innanzitutto, 


i due casi limite, che non si verificheranno mai nei 
problemi reali, ma che sono, in via puramente 
teorica, mentalmente concepibili: i casi, cioè, di 
“perfetta dipendenza” e di “perfetta indipen- 
denza” fra le due variabili x e y. 

Si ha perfetta dipendenza quando il fatto che un 
individuo possegga un determinato valore xi di X 
determina univocamente quale valore yi di Y l'in- 
dividuo stesso possiederà. In una tabella a dop- 
pia entrata, come quella di figura 1, ci sarà, quin- 
di, in ogni colonna xj una sola frequenza fi diversa 
da 0, in quanto tutti gli individui che presentano il 
valore argomentale xi avranno tutti lo stesso valo- 
re argomentale yi Si può, cioè, supporre che esi- 
sta una funzione y'=f(x) che lega i due argomenti 
della variabile statistica doppia e che, di conse- 
guenza, è detta curva di dipendenza. 
L'equazione suddetta può essere determinata: 
a) empiricamente: proponendo funzioni arbitra- 
rie che si suppone si adattino bene alla descrizio- 
ne della relazione esistente fra la x e la y; 

b) razionalmente: creando, cioè, degli schemi 
logici che costituiscano una possibile spiegazio- 
ne della relazione e non una semplice descrizio- 
ne. 

Nella maggior parte dei casi non si dispone né di 
curve di dipendenza del primo né del secondo 


CBM 


Figura 1 - Tabella a dop- 
pia entrata rappresen- 
tante una variabile stati- 
stica a due dimensioni. 


Figura 2 - Tabella sinte- 
tica ridotta: la seconda e 
la terza colonna conten- 
gono, rispettivamente, 
la media parziale per co- 
lonna e la varianza par- 
ziale per colonna. 
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Figura 3- Indice quadra- 
tico di dipendenza ed in- 
dice di Pearson. 
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tipo. Si assume allora come curva di dipendenza 
la curva di regressione, precedentemente de- 
scritta. Si vedrà, in seguito, come essa rappresenti 
la più fedele descrizione dell'andamento della Y 
in funzione della X, ricavabile dai soli dati speri- 
mentali. 

Il comportamento delle due variabili, nel caso 
in cui esista fra di esse una perfetta indipenden- 
za, Può, a volte, essere ricavato dall'esperimento 
stesso, osservando, cioè, come si comporta la Yin 
assenza della X. Nella maggior parte dei casi, 
però, non è pratico o non è del tutto possibile 
analizzare la Y in assenza della X e si dovrà far 
ricorso ad ipotesi logicamente ammissibili. Preci- 
samente, la statistica propone, come ipotesi di 
indipendenza in media o correlativa, quella in 
cui, in caso di indipendenza, le medie dei valori 
della Y (variabile dipendente) rimangono inva- 
riate per ogni valore xi della X. Le medie parziali 
per colonna Myidovranno cioè essere tutte uguali 
fra loro ed uguali alla media generale My. Ciò 
significa considerare ogni colonna come provvi- 
sta di una certa stabilità del valore medio. Si ha, 
perciò, perfetta indipendenza quando, avendo 
separato la popolazione in tanti gruppi inbase ai 
valori dell'argomento X, ciascuno di essi può con- 
siderarsi come un gruppo di estrazioni a caso 
dalla popolazione presa in toto. Ogni gruppo 
avrà allora una media che oscillerà intorno al 
valore medio generale, con oscillazioni tanto mi- 
nori quanto è maggiore il numero di individui in 
ciascun gruppo. Poiché l'aver scelto gli individui 
in base alle x non ha provocato una corrispon- 
dente scelta degli individui rispetto alle y. giac- 
ché essi si comportano come se fossero stati 
estratti a caso, si può dire che non vi è dipenden- 
za traX ey. 

Possiamo ora cercare di interpretare il valore 
argomentale yi presente in un individuo qualun- 
que fra quelli aventi valore argomentale xi. 

La media My si può pensare come valore domi- 
nante nel gruppo suddetto, in quanto le even- 
tuali differenze yi-Myi sono dovute a fattori acci- 
dentali o comunque indipendenti dalla variabile 
X, che si presenta con lo stesso valore in tutti gli 
individui del gruppo. Per questo motivo, le diffe- 
renze y-Myi sono dette scarti indipendenti e rap- 
presentano le dispersioni dei singoli valori yi intor- 


no alla loro Media, dovute a cause che non han- 
no nulla a che fare con l'influenza della X. Nel 
caso in cui si sia potuta fissare una relazione 
y'=f(x) da assumere come curva di dipendenza, 
si dovrebbe avere in corrispondenza di ogni xi 
una ben determinata yied anche qui le differen- 
ze y-y'i sarebbero dovute a motivi accidentali o 
comunque indipendenti dalla x;. Se, invece, ana- 
lizziamo il significato della singola media per co- 
lonna Myi, vediamo come essa si possa pensare 
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scomposta in due parti, una indipendente dalla 
X, che esisterebbe, cioè, anche in assenza di essa, 
ed una causata da que|,particolare valore xjpos- 
seduto da tutti gli individui di cui Myi è la media. 
Supponiamo di considerare, ad esempio, il va- 
lore medio del frumento raccolto in un certo nu- 
mero di campi a cui è stata somministrata una 
certa quantità x;di fertilizzante; questo valore me- 
dio si compone di una parte che si sarebbe rac- 
colta comunque, anche senza l'uso di fertilizzan- 
te, più una parte che è dovuta al fatto che il 
fertilizzante invece c'era, ed in misura xi. 
Poiché si è convenuto di considerare la media 
generale My come valore argomentale corri- 
spondente all'ipotesi di indipendenza correlativa 
o in media, si potrà indicare la parte di Myi che 
dipende da x;, che prende il nome di scarto di- 
pendente, come My-My. L'attendibilità, o peso, di 
tale scarto, dipenderà ovviamente dal numero pi 
di individui di cui si dispone per calcolare la me- 
dia per colonna Myi 
Avendo definito gli scarti dipendenti e quelli indi- 
pendenti, si può osservare che, se vifosse tra laX e 
la Y una perfetta dipendenza, tutti gli individui 
con valore argomentale xi avrebbero la stessa yi, 
la quale coinciderebbe con la media Myie, quin- 
di, tutti gli scarti indipendenti (y-My) sarebbero 
nulli: mentre se avessero una perfetta indipen- 
denza, tutte le medie parziali per colonna My; 
sarebbero uguali fra loro ed uguali alla media 
generale My, per cui tutti gli scarti dipendenti 
(My-My) sarebbero nulli. 
Un indice intuitivo che rappresenti il grado di di- 
pendenza fra la X e la Y potrebbe essere il rappor- 
to fra la sommatoria degli scarti dipendenti e la 
sommatoria degli scarti indipendenti; ma tale 
rapporto avrebbe il difetto di divenire infinito in 
caso di perfetta dipendenza. In pratica, si preferi- 
sce usare un indice quadratico di dipendenza 
che si può scrivere nelle due forme di figura 3. 
Nella seconda forma, l'indice quadratico di di- 
pendenza prende il nome di Indice di Pearson ed 
è il più frequentemente usato. Va sottolineata la 
differenza fondamentale di significato esistente 
tra Indice di Pearson e la. Il primo misura il grado di 
dipendenza della Y dalla X, mentre il secondo 
misura quanto bene la particolare funzione 
y'=f(x) usata per il calcolo dell'indice quadratico 
può rappresentare tale dipendenza. Sia la che 
l'indice di Pearson sono uguali a 0 quando vi è 
perfetta indipendenza ed hanno valore compre- 
so fra 0 e1 in tutti gli altri casi. La dipendenza fra X 
e Y è da considerarsi nulla se ilvalore dell'indice è 
minore di 0,2; è presente, ma debole, quando è 
maggiore di 0,2 e minore di 0,4 e sensibile quan- 
do è compreso tra 0,4 e 0,6; forte quando va da 
0,6 a 0,8 e fortissima se maggiore di 0,8. 


Coefficienti di regressione 


Si è visto, nel paragrafo precedente, che nel 
caso in cui esista una dipendenza tra i due argo- 
menti X e Y di una variabile statistica doppia si 
può proporre una relazione analitica tra le due 
variabili. Quando, però, la dipendenza non è per- 
fetta non è possibile trovare una funzione che 
faccia corrispondere esattamente ai valori argo- 
mentali x quelli corrispondenti y. Il problema vie- 
ne quindi risolto con una funzione interpolatrice. 


Particolare semplicità presenta il caso in cui la 
funzione interpolatrice y'=f(x) può essere consi- 
derata una retta ed assumere la forma y=ax+b. 
Se la dipendenza tra X e Y non è perfetta, i valori 
di y' differiscono dai corrispondenti y, qualunque 
sia la scelta dei coefficienti a e b; la differenza y'-y 
ha il significato di uno scarto, quindi si dovranno 
cercare dei valori dei parametri che rendano gii 
scarti, nel loro insieme, i più piccoli possibili. 

Dei due coefficienti, quello che ha veramente 
importanza è a, cioè il coefficiente direttivo della 
retta, poiché b dipende dalla scelta dell'origine 
degli assi e non ha un significato statistico. Se, ad 
esempio, a fosse uguale a 0, ciò significherebbe 
che Y è indipendente da X. È interessante notare 
che spesso X e Y sono grandezze diverse e quindi 
a non è un numero fisso, ma una grandezza il cui 
valore numerico dipende dalle unità di misura 
prescelte. Il coefficiente a prende il nome di coef- 
ficiente di regressione lineare di Y rispetto ad X. Il 
coefficiente di regressione lineare è dato dal rap- 
porto fra la covarianza e la varianza della variabi- 
le indipendente. 

Se si vuole studiare la dipendenza di X da Y, si 
procede in modo analogo al precedente, po- 
nendo x=a'y+b' e trovando i due parametri sem- 
pre con il metodo utilizzato per il coefficiente di 
regressione lineare. Se la dipendenza tra le due 
variabili fosse perfetta, risulterebbe evidentemen- 
te a'=1/a e la retta coinciderebbe con la prece- 
dente; in generale, però, ciò non avviene, perché 
nel primo caso si minimizza la sommatoria degli 
scarti (y’-y)?, nel secondo caso la sommatoria 
(xx), cioè le somme dei quadrati delle distanze 
dei punti osservati dalla retta interpolatrice, misu- 
rate nel senso delle y e delle x. L'espressione di a’ 
diviene a’ = rapporto fra la covarianza e la va- 
rianza della variabile indipendente (che in que- 
sto caso è la y). Il numeratore non varia, perché 
evidentemente la espressione della covarianza 
non muta scambiando X con Y. 


Coefficiente di correlazione lineare 


L'indice quadratico di dipendenza visto, per- 
mette di misurare il grado di adattamento di una 
variabile statistica doppia ad una curva di dipen- 
denza di forma e tipo qualsiasi, purché ben de- 
terminata e definita anche numericamente. La 
curva di dipendenza deve cioè essere una fun- 
zione calcolabile numericamente per ogni valo- 
re della x. 

Analizziamo ora in quale grado la dipendenza 
fra gli argomenti X e Y di una variabile statistica 
doppia sia ben rappresentata da una curva di 
cui si stabilisce solo la forma senza fissare i para- 
metri. Particolare interesse riveste il caso in cui la 
famiglia delle curve di dipendenza sia costituita 
da rette e perciò il legame fra X e Y sia di tipo 
lineare. 

Si introduce un indice chiamato coefficiente di 
correlazione lineare, che misura il grado di adat- 
tamento dei dati sperimentali all'ipotesi che fra 
gli argomenti X e Y della variabile statistica esista 
un legame di tipo lineare. 

La correlazione è un aspetto più generale della 
regressione, in quanto considera la relazione in- 
tercedente tra le due variabili, senza porre la con- 
dizione di dipendenza di natura causale tra le 


variabili stesse. In altre parole, nella correlazione 


viene considerata l'interdipendenza tra le varia- 
bili, in quanto sia una che l'altra possono fungere 
da variabile indipendente. 

Il coefficiente di correlazione lineare ha un valore 
sempre compreso tra —1 e +1: uguale a +1 solo 
quando si ha perfetta correlazione lineare, ugua- 
le a zero nei casi di perfetta indipendenza di tipo 
lineare fra X e Y, e compreso fra +1 e 0 oppure fra 
0 e -1 in tutti gli altri casi. Il coefficiente r è dato 
dal rapporto tra la differenza Mxy-MMy ed il pro- 
dotto della varianza di x per la varianza di y. Il 
calcolo del valore My viene eseguito mediante la 
seguente espressione: 


A differenza dell'indice di Pearson, che è una 
misura generale della dipendenza esistente tra i 
due argomenti della variabile, il rapporto r ha 
significato solamente quando la dipendenza ha 
un andamento pressoché rettilineo. Esso, infatti, è 
un indice che mette in luce la maggiore o minore 
approssimazione della retta come rappresenta- 
trice della correlazione fra gli argomenti della 
variabile statistica stessa. Esso è inoltre esprimibile 
come la media geometrica di a e a’, i quali sono 
così uno l'inverso dell'altro solo quando si ha per- 
fetta dipendenza lineare (r=1). 

In figura 4 sono rappresentati sul piano X, Y dei 
casi di variabili statistiche a due dimensioni; i 
punti rappresentano ciascuno un individuo della 
popolazione in esame. Per ognuno dei quattro 
casi illustrati è dato il valore del coefficiente di 
correlazione r, che va da 0 nel primo caso ad 1 

l'ultimo. 

interessante notare come, nel secondo caso, 
pur essendo evidente la correlazione esistente fra 
Xe Y,rsia nullo, poiché il legame fra i due argo- 
menti non è affatto rappresentabile con una ret- 
ta. 


Conclusione 


Ricordo, ancora una volta, che mi sono servito 
del mio testo universitario di statistica, “Fonda- 
menti di Statistica”, della prof. Giovanna Togliatti, 
edito dalla Hoepli, al quale invito a fare riferimen- 
to chiunque fosse interessato ad approfondire gli 
argomenti trattati. 

Ricordo, inoltre, che sul prossimo numero di Bit 
compariranno il listato del programma ed i com- 
menti al funzionamento dello stesso, completi di 
tutte le istruzioni necessarie ad un corretto utilizzo 
delle opzioni che esso offre. le | 


(Continua) 


Figura 4 - Valori del co- 
efficiente di correlazio- 
ne r per vari insiemi di 


punti. 
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Prima e Terza: 
due programmi didattici 
per Spectrum 


Abbiamo visto e letto di Scuole elementari ove maestri convinti, entusiasti, addirittura 
pervicaci, stanno lavorando con l’elaboratore. Abbiamo anche preso visione di diagrammi di 
flusso, di programmi che gli scolari sono arrivati in breve tempo a stendere. Se da un lato ciò 
dimostra che l'entusiasmo del maestro è molla fondamentale nel processo di apprendimento 
dello scolaro, da un altro canto ci ha portati a meditare se non sia il caso di accostarci 
all'informatica usando la prudenza dei piccoli passi. Certamente gli elaboratori possono 
trovare ampio spazio nel campo educativo, ma in più di un filone di intervento. 


di Dino Citterio 
Prima 


N on crediamo si possa mettere indubbio che il 
computer favorisce l'apprendimento, anzi ci 
sentiamo di aggiungere che proprio le procedu- 
re di lavoro che impone sono il suo pregio Mag- 
giore. Ci impone di aver ben chiaro l'obiettivo da 
raggiungere, pretende l’analisi dei dati, avvia al- 
la soluzione attraverso l'algoritmo. Se riflettiamo 
un attimo, cambiati i termini, è quanto chiedia- 
mo agli scolari, sottoponendo loro il classico pro- 
blema da risolvere. Lo scolaro deve esporre i dati, 
ideare una strategia di elaborazione degli stessi e 
spiegare il motivo delle varie operazioni, quindi 
riassumere i risultati ottenuti sotto forma di una 
risposta ad un quesito iniziale. Ciò significa che, 
almeno con l'aritmetica, siamo vicini all'informa- 
tica più di quanto non si creda. Non vogliamo ora 
allargare ulteriormente il discorso, passiamo a 
giustificare il programma. È nato per i bambini 
che in prima elementare (e magari anche più in 
là) ancora incontrano difficoltà di calcolo nel- 
l'ambito del 20. L'abbiamo sviluppato in due 
aspetti: con il primo lamacchina si propone all'a- 
lunno come fonte di esercitazione; presenta l'o- 
perazione, controlla il risultato introdotto ed evi- 
denzia, in caso di errore, l'operazione proposta 
usando la grafica. 

Apportate al programma le modifiche che ver- 
ranno consigliate, potremo usare lo stesso in fun- 
zione di controllore. Dati e risultati sono introdotti 
con INPUT dall’alunno e lamacchina si sostituisce 
ancora di più all'insegnante nella fase della cor- 
rezione. Perché il computer invece del maestro? 
Soprattutto perchè l'alunno non rimane passivo 
ad aspettare la spiegazione, ma deve comegge- 
re il proprio errore osservando lo schermo. Anche 
in passato gli alunni controllavano il loro lavoro 
con materiale strutturato; i nostri padri hanno 
usato il pallottoliere (ma è proprio superato?), noi 
sassi, fagioli e granoturco, i nostri figli i numeri in 
colore. Alle ultime leve offriamo l'elaboratore, vi- 
sto che già lo conoscono come fonte di gioco. 
Esso ha eliminato la manipolazione del materiale 
e quindi tutti gli errori legati ad essa, chiede che si 
risponda premendo tasti a ragion veduta ed infi- 
ne (è importante) corregge, proponendo sem- 


pre lo stesso schema grafico. Lo stimolo che ogni 
volta viene proposto dallo schermo dovrebbe 
contribuire a fissare la procedura di lavoro, il me- 
todo da seguire. 

Il programma in prima versione può essere detto 
di rinforzo. Propone l'operazione (linee 115, 215, 
..), verifica l'esattezza del risultato (linea 120, ...), 
visualizza graficamente in caso di errore (linea 
126 e seguito). 

Non ci sembra il caso di diffonderci in spiega- 
zioni perché il programma in sé è piuttosto sem- 
plice. Facciamo solo rilevare che le operazioni 
vengono proposte a gruppi di dieci (contate con 
la variabile “e”), le risposte esatte premiate con 
un palloncino appeso nella parte alta dello 
schermo, dopo di che (linea 610) si può ritornare 
alla linea 72 ed effettuare una scelta di lavoro 
diversa. Si può alleggerire il listato eliminando lo 
schermo iniziale di presentazione fino alla linea 
49 esclusa. 

Vediamo ora le varianti. Con le sostituzioni che 
seguono il programma assume veste tutoria. L'a- 
lunno, dopo aver effettuato le sue operazioni, le 
controlla con l'aiuto di Spectrum come già detto. 
Il vantaggio di poter contare su più di una visua- 
lizzazione consente di andare incontro meglio 
alle difficoltà del bambino e permette anche di 
adattare il lavoro del computer ad eventuali ac- 
corgimenti seguiti dall'insegnante in fase di im- 
postazione dell'argomento. Si pensi all'aritmetica 
insegnata con i numeri in colore, oppure con la 
pista dei numeri, col materiale Meina, e così via. 


Modifiche 


Uso del programma come controllo di addizio- 
ni entro il 20 e con due addendi. Sostituire le linee 
di pari numero con le seguenti: 

105 INPUT “Dammi il primo addendo”; a 
107 INPUT “Dammi l'altro addendo”; b 


La linea 110 può essere tolta, perché si dà per 


scontato che il totale non supererà il 20. 
Uso del programma per controllare le sottrazioni 


entro il 20 con minuendo e un solo sottraendo: 


205 INPUT “Dammi il minuendo”; a 
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207 INPUT “Dammi il sottraendo”; b 

La linea 210 può essere tolta perché si suppone 
dato un minuendo maggiore del sottraendo. 
Uso del programma per controllare le moltiplica- 
zioni. 

305 INPUT “Dammi il moltiplicando”; a 

307 INPUT “Dammi il moltiplicatore”; b 

Per il controllo delle divisioni si consiglia di sceglie- 
re il caso “di contenenza”. 

760 INPUT “Dammi il dividendo”; a 

762 INPUT “Dammi il divisore”; b 

È possibile togliere la linea 764. 

Può rivelarsi utile anche questa variante, che per- 
mette di visualizzare entrambi gli addendi sulla 
stessa linea di schermo: 

138 PRINT INK 2; AT 13,x;"*“: BEEP .5,12: NEXT x. 

Si noti l'introduzione del BEEP; si è voluto rallentare 
di proposito l'operazione di “aggiungere”, in mo- 
do che il bambino vedesse chiaramente l'ad- 
dendo aggiunto ad un'unità per volta. 

Per la sottrazione consigliamo questa variante, 
che allinea a destra il sottraendo, così come si fa 
quando si mette in colonna. Il BEEP ha la stessa 
funzione già illustrata più sopra. 

237 FOR x=6+a TO x-b STEP —1 

238 PRINT OVER 1; INK 2; AT 13,x;"*“:BEEP; .5,12 
240 FOR y= 7 TO x 

245 mettere y invece di x 

248 NEXT y 


Terza 


È del tutto logico, dopo aver caricato sullo 

Spectrum un programma di aritmetica per la fi- 
glia che frequenta la prima elementare (calcolo 
entro il 20), sentirsi chiedere da quella di terza 
elementare: “E a me non lo fai il programma?. 
Come no! Vedilo in figura 2”. 
Per i lettori diremo che non è il caso di spendere 
molte osservazioni per illustrare la programmazio- 
ne. Per la didattica diciamo che si è scelta la 
strada più logica, praticamente l'unica percorri- 
bile quando si avviano gli scolari alla tecnica del 
calcolo mentale. L'insegnante chiede sempre la 
scomposizione del numero in decine ed unità, la 
loro somma, l'eventuale riporto della decina 
quando la somma delle unità supera il 9. Nella 
sottrazione, dopo la scomposizione, può essere 
necessario lo spostamento della decina fra le 
unità. Per meglio rendere visibile il procedimento 
si è arrestato più volte il programma con PAUSA 0 
invitando l'alunno a premere un tasto per prose- 
guire solo dopo aver capito la fase illustrata sullo 
schermo. In caso di ulteriore errore la dimostrazio- 
ne viene interamente ripetuta. Il discorso si appli- 
ca anche all'’addizione quando la somma delle 
unità supera il 9. Anche in questo programma si 
sono distinti i due casi di divisione: contenenza e 
ripartizione. È opportuno che i due concetti siano 
ben chiari ai bambini (qualche collega ha un 
programma da offrire in proposito?), diversamen- 
te è bene scegliere il caso di contenenza perchè 
ad esso si fa riferimento quando si esegue il cal- 
colo. Noi siamo soliti dire “quante volte il 5 sta nel 
26" e solo all'atto del problema ci troviamo nella 
necessità di dividere una quantità in parti uguali, 
cercando la consistenza di ciascuna parte. 

Le operazioni vengono proposte a gruppi di 20, 
con eventuale ritorno alla scelta di lavoro (linea 
700). Anche questo programma può facilmente 


essere modificato per utilizzarlo come controllo di 
operazioni di cui siano noti i due dati. Basta inter- 
venire sulle linee che assegnano i valori ad “a” e 
"b” e sostituirle con INPUT così come spiegato nel 
programma “prima”. 


Listato | - Listato pro- 
gramma “Prima”. 
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ZX SPECTRUM 


Seguito programma | s.rno): GO TO 219 
Prima". 21S PRINT, AT ,8; "Dimmi quanto 


.AT 4 : TO seo 

Sha '63"i0a Se 
7828 3 IF_3>=1@ THEN PRINT INK 1;8 
227, 36° à<10 THEN PRINT INK 1; AT 


336*#òR x=7 To e+ 
v- PRINT INK 1087 19,x; "8": NE 


233 IF .banio THEN PRINT INK 2;A 
238 TE b<i@ THEN PRINT INK 2;AT 
14,3; "-";b 
235 For X=7 TO 6+ 

PRINT INK 2; AT 20,x; "a" 

FOR xx7+b TO 6+ 

PRINT FLASH 1; AT sexe” 


{a-b}) /10 


" 


o 218 
: BORDER 4: LET g=301 
1 PRINT AT @,8; "MOLTIPLICAZIO 


bat > SsUB_752 


RND) 
T 4,06; Dimmi quanto 


PUT' “Risultato= “; 
320 IF r=a#b THEN PRINT PAPER & 


FOR w=i1 TO 16: PRINT AT sà 


Li; 
& 
QIAT y,x; "a" 


NEXT x 

FOR x=26 TO 25+b 

FOR N °s TO 9S+a 

NESS INK 1;AT y,x; "e" 


LS : GO SUB 7509 
PRINT AT. 4,8; “SCELTA DI LAW 


PRINT AT 21,0; “DIVISIONI di 
CONTENENZA remi PRAGUE CPI ZIE 
a0ecee Riba RTIZIO 
er intiminciàrà.": AUSE @ 
IF INKEY$="C" THEN GO TO 45 


CLS : BORDER. LET 
NT : "DIVISI NI °di 


760 
E INPUT "Risultato ";r, "Resto 


PETS IF” red AND s=0 Mio PRINT_P 
RPER_S8;AT 4,22;d;" ‘;0: 60 
TO _ 50 

423 GO SUB 800 

425 PRINT AT 12,8;a,;":" 

428 A ato x=8@ TO Satiniià) STEP 


(8» 
429 >bLOT «Figlie DRAU 8,5 
43@ NEXT 


PRINT, AT 18,09; "Quante 
} g3i Cont ene ";bj 


d Next” 
446 GO To” 415 
45® REM divisione di ripartizio 


: LET g=452 
PRINT AT ®,3; "DIVISIONE DI 
a TPRRTIZIONE 
453 GO SUB 750 
cei 3 sUB 760 
DÒ PUT "Risultato ";r, "Resto 


iti IF r=d AND s=0 THEN PRINT_P 
APER SIAT +,22;d;" Resto=";0: GO 


se 
Lg GO SUB Ses 
el Ha ya AT 12,2;a;AT 213,1;" 


2 FaR' Xx=8@ TO 8@+(8*b+d) STEP 
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83d 
233 PLOT x,88: DRAU 0,5 


NEXT _X 
488 PRINT AT 18,5; "Quanti #“;AT 
19,1; "in ogni parte 

NEXT x 

4908 GO TO 458 

SS PRINT AT S,@;juerenenees--- 
SATTO “07 ’socto ce: BEND 2,11: 
BEEP 2,15: PRINT AT 8,8; 


521 CLS 
Bea? for @=@+2: IF e=20@ THEN GO 


X=&6 TO S+e STEP 2: PRIN 
e ia “@": . N x 


> RT 

« PER». Le Pine fasy abi tat sta. gir 
TP _3,-15: PRINT BRIGHT 1; 8,0, 
I9S3ERVA” e RALCOLA ICON AFTENZEON 


LET 
885 BRINT "BAPER 6;AT_11,2;' DE 
INA j PAPER 5; ee 


529 PRINT ni 18,9; "Quante Qu 
ua - UNITA‘ 7 


©®,87: Pat 


NERINT Vi 
e i s 
t 
s 


Da 
RINT AT 10,0; "Se i 

#0ro e’ finito presti il ta mil 

ici Sr gteterio i calcoli 

E ar <A THEN_GO TO 72 

AT 16,5; Arrive 


FOR X=18 TO 9S+d 

pes È 1 Lg BRIGHT 1;AT 21,x; "i" 
FOR x=17, TO 1640 

PRINT INK 3;AT 

NEXT _x 


P_i E 
>>3>}>3>>}}}}} 
7255 PLOT 48,1 


‘TURN 


{(10#*RND} +1 
N LET b=eb-INT (2+ 


: 4 
a” 8 LET d=INT (a/b): LET osa-b%* 
CREGaTETA. DI 4,9; "Dimmi quanto 


an 
"30° RETURN” 
see IF r<uod AND s=0 THEN PRINT 
gd mg” Hai sbagliato il risùw 
ato. ria 
801 IF red AND s<>}0 THEN PRINT 
pid siii Hai sbagliato il re 


* 502 IFOF<dd_ AND s<>0 THEN PRINT 
AT è; Risultato e resto sb 


-24: PRINT BRIGHT 1; 
Sert E CONTROLLA ATTE 


,8 
8; "0SS 
a” 


- PHPEN 5SYHI L16) 
"PAPER 8)°. x 


PLOT 128,9: Serg 20,38 
FOR x=1@ TO 9+ 
PRINT INK 1; AT i2,x; 8“: NE 


PLOT 80,56: DRAUY 8Skb#d,0 
FOR x=16+b#d TO (9+a) 

FLASH 1;AT 14,x;"t" 
NEXT x 
PRINT AT 18,17; "Con resto d 


FOR x=@ TO t(d-1): PRINT BRI 
; DPS. RL 


(î26+0): PRINT I 


URN 
PRINT FLASH 1;AT 210,® 
FERMA IL NASTRO 


‘3005 PRINT AT 22, o “Premi un tas 
to Des incominciare. ": PAUSE © 
‘391@ RUN 


got 144,136: DRAU -32,08,3, 


POT 128,48; DRAU 0,72 
1& PLUT S8,è: DRAEV A a PReA 
DRAG 


18,48: DRAW i6,-48: 
i ée: DRAY Balt68: D 


5 PLOT 64,1 
RAY_64,809 
29 PLOT 120,144: PLOT 136,144 
25 PLOT 124,132: DRAU 8,0,PI/2 
38 Foot ifg:ias: BROS Dis 
40 PRINT BRIGHT 2;AT Ata 
TTICA E CALCOLATORE” 
48 € PAU 
Se cos i BRINT TAB 10; "Classe 


Sì PRINT i RARER_S: 
SERCITAZIONE, oi RarmRErTOA "» E 
E PRINT AT Rraidità di Law 


55 GO SUB i) 
55 DRINT AT 21,0; “Per fare Le 
ADDIZ 


“"DIDA 


il ti 


BUSE 
IF TNKEYS="S" THEN GO TO 


IF INKEY$="Mm" THEN 60 TO 
IF INKEY$="d" THEN co TO 
CLS : BORDER 5: LET e=0: 
z=i0 
PRINT _AT Q@,li; "ADDIZIONI" 
GO SUB 500 
LET a=INT (99#RND) : LET b=I 
{99 #&RND) 
Ie a+b}=19@ THEN LET b=sb-IN 
ND) : GO TO 107 
HEN LET b=@ 
3,@; “Dimmi quanto 


Risultato 
Th” sie 
523 


li 
12 
22 
12 
12 
12 
13 
13 
135 
h+ 
A 


5 
@ 
di 
3 
5 
DA 
© 
3 
5 
k 
t 
P 
R 
s 
[SI 


FLAS 
enzione Riporto 
USE ®: FOR 


tua 


î 
A 
I 
E 


- Lilo 
»CO 


PRINT AT 172,14; 
145 G93 SUB 620 
112 
BORDER 6: LET e=0: LE 
r_z=201 
291 PRINT _AT W,ii,; SOTTRAZIONI* 
205 GO_SUB_ 500 
SID BERND: LET 
IF a<b THEN LET b=b-1@: G0 
ro 207 
218 PRINT Dr 3,0; "Dimmi quanto 


Fa Ma" 
Za’ thpur' RRISUItaAtO “; 
15 THEN 60 TòÒ sie 


225 

227 PRINT PAP 
zione! “js; " acettà 
ace. «Rebbo dare 

ta' UB 6 


L'eta”: 
22,3+h;" ": LE 


PRINT A 
34h 
7,x;i"8": NEXT x 


O 212 
BORDER 5: LET e=0: LE 
T z=301 


Listato 2 - Listato pro- 


321 PRINT AT 0,8; "MOLTIPLICAZIO Si = 
WI" gramma ‘‘Terza”. 


382 GO SUB_500 
305 LET azINT (11#4RNO) : LET b=IL 
21 FRND) 
IAA a TERE a 3,0; “Dimmi quanto 


i 
“Risultato * 
56 sio 


FOR x=11 TO 10+a 
=21 TO 20+b 


INK 2;AT x,U;"" 


NT.:TR® 4; 
co 


PRINT: 
scelio Le divi 
PRINT AT_8,5;° . 
enzet.i PRINT ®, età: 
ripartizione?” 
®2 PRINT BRIGHT 1;AT 206,6;" Pr 
ami il tasto corrisponden i JJ 
403 PAUSE ®@ 
E esiti IF INKEY$="c" THEN GO TO 80 


BORDER 5: LET e=0: LE 


PAZAIAWOO 


(12+88#RND) : LET 
(a/104(11-2/108) #RND) 
4131 LET h=INT ta/b) 
$ LET k=a-h#b 
RINT AT 4,5; "Dimmi quanto 


“Risultato ";r, "Resto 
IF r=h AND k=o THEN GO TO 5 
co sua 529 
PRI 


Su siria 
FOR 4-8 TO "FABIO ‘steb è 
+h 
X,4;} PRPER 5; "N" 


XT 
2 vis TO PRESE STEP s. 
NT INK 2;AT S+h,4;"ît" 


21,@; PAPER 6;j"@va 
colonna colorate?" 
16 
NK 


1; AT 
BERKERRS } AT 5, 


» î: .w: 


‘505 PRINT BRIGHT 1;AT 21,08; "“ 


R 
fi 
21,9; "Esatto. Risulta “";f;". C 
E 


e 
AT R2,0;" 
S30 BAT, aUiori BEEP «8,8. BEE 
: BEEP ,8,9: BEEP (6,5: BEE 


LET gee+i; /FOR_x=6_ TO 
INT AT 2,X; "©": NEXT x 
3229 Tue dotò des 


F_,ft>h_ AND o=sk TMEN PRINT 
i", Hai sbagliato il risu 


IF r=sh AND 0<>k THEN PRINT 
Mat. Hai sbagliato il re 


IF r<e>h AND 0<€>5k THEN PRINT 
6,09;" Risultato e resto sbea 
at 3 


523 a FLASH 1;AT 21,0; " 
-24: PRINT _BRIGHT_1; 
78 Bs rOssEROs E CONTROLLA ATTE 


Rie”? RETURN 
Teano Sr'Eo 19: JacoRmonRo "pp 
R "8; AT 10,24; " unita’ 


327 PLOT_31,530: DRAY 2,853: 


110,30: DRAÙ ® 
23 PLOT @,52: D 
LOT ,° se: PRAY 285,8: PLOT ui" 


5, 
Bia d 8 FUEN PRINT_AT_ 12, 2,9 - 


PRAY 
29; 
3 F aci@ THEN PRINT AT 12, 
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Seguito 
“Terza”. 


programma 


b<10 THEN PRINT 
h=INT (a-10): 


LET 
OR x=14 TO ab 
12, xi a: 


NCONDAI9C HH 


PRINT BRIGHT 1:AT 
capito premi un 


RETURN 
520 FRINT AT 221,0; " 


7909 BORDER 


L N 
818 GO_SUB 
815 LET SPINTO 


93: : 
“Rai 


b>)9 THEN PRINT _AT_14 


AT i 


LET R=INT 


RETURN 
PRINT TAB 1 
ese 
‘*;AT 10, 
i'catcolitcc’a 


uU 


voro premi 


INKEY $="z" THEN GO TO _E8 
"Ciao 


INT AT_21 
a_presto." 


BORDER 4: 


gi” 


e_a 


LET e=s@: 


j"pre 


SUENT 


4, th; DE 


LET 


FOR 
ENR 


NEXT 
FOR 


nte coton 
s9e co 
aga@ CLS 


ito 
Mm 
5°£ in 

RUN 


pi») 
Friv 302 


LE 


*DIUISTONE DI 


{12+98984RND) : 


LET 


DEENT, PAPER 
NEXT 


TO 


(0/104 (11-23-10) RN) 
LET RkR=ea-h* 


1389 SENI AT 4,5; "Dimmi 
‘Tapùr' 


h=INT ta7b) 


ib 
“Risultato 


8, èa;":";bj 


quento 
“if. "Resto 
IF r=h AND k=0 THEN GO TO 5 


GO_ SUB 520 
5 PRINT AT 


y=8 TO -9i8ìn streP 2 


x=8 TO 7+b 


6;AT x,4;' 


4 
x=8 TO 


74 
bet 1 Li INK 2; E x,8+2*h; 
NEXT ba 
PRINT, PAPER 6;AT 21,8; 


intere ci sono? 


2309 
PRINT FLASH 1;AT 
FERMA IL NASTRO 


ne 


3818 PRINT AT 21,8; "Preai 
PA} 


cominciare.": 


va 
“Qua 


10,a 


Sarà a breve disponibile la cassetta del program- 
ma Simulavolo. Inviate il tagliando per prenota- 
zione (cod. SP481A/ lire 25.000). 


ATTO PRINO. 


computer. 


Non è una novità. dBase II° è già un classico. 
In pochi mesi è stato capace di aprire un vero 


dialogo tra voi e i Personal. Vorremmo citarvi 
tutti, ma siete molti. Per cui ci limitiamo a dire 
che anche grossi nomi dell'informatica 
(e gli americani capiranno chi) hanno 


adottato il dBase Il nei loro 
pacchetti Personal. Una ragione 
ci sarà. Vediamola. 

dBase Il è un DATA BASE 
relazionale programmabile in 
pochi giorni (non settimane) ed 
usa un linguaggio che conoscete 


già: le parole (non il “computerese"). 


Le sue applicazioni? Esprimete un 


desiderio: dalla gestione aziendale alla 


sala chirurgica. Senza limiti. dBase Il è un nuovo modo 
di programmare tutti i Personal (gira sotto CP/M 80, 
CP/M 86 e MS-DOS) con le strutture dei grandi 
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F; 
Almeno per chi usa il dBase Il. 
Ora però, anche per voi ci sono 
delle novità. 
Noi della Algol (fatto unico in Italia) 

siamo stati incaricati di produrre qui 

il dBase Il. 

Ed anche di collaudarlo nel nostro 

Beta-test Center. 

Su questa spinta, abbiamo preparato 

subito il dBase Il Didattico in italiano. 

La lingua che presto parlerà anche a 

l'intero pacchetto. 

Ci stiamo già lavorando. 

Intanto, abbiamo formato u una rete di Punti 


Vendita in tutta Italia. 


Telefonateci, vi diremo 
qual è il più vicino a voi. 


in qui, niente di nuovo. 


Via B. Bellincione 26 - 20134 Milano - Tel. 02 


ITALIANA 


2155622 


2JO]-LOJYSY 040145189) 014210 W 


SUL PROSSIMO NUMERO DI SUPER BIT 
RISERVATO PERSONAL 


TROVERETE: 


e MAGICATALOG: 
COME TENERE ORDINATI 
I DISCHI DELL’APPLE 


e TEXT-EDITOR: EDIZIONE 
DI TESTI PER CASIO 702P 


e SCORE: 
LA PALLACANESTRO 
SU VIC 20 


e MONITOR PER C 64: 
PROGRAMMAZIONE 
IN LINGUAGGIO MACCHINA 
RESA COMODA 


È una novità. Si intitola dGraph® e, 
come dice il nome, è un paren- > 
te stretto del dBase Il. Quindi vil. 1 /, : 
sarà facile intuirne le caratteri- ft 
stiche. dGraph è il Sistema Gra- | +: 1 
fico del dBase II. In pochi secon- 
di insegnerà a disegnare alla 
vostra stampante. Qualunque 
essa sia e nella lingua più chiara 
ed antica del mondo: i grafici. 

Come dire che chi sa scrive- 
re, da oggi sa anche disegnare. 
E senza alcuna fatica perché 
dGraph non ha bisogno di 
programmazione. 

Ora immaginate che manchino pochi 
minuti a una riunione (situazione piuttosto comune, no?) 
e che voi dobbiate spiegare un dato andamento in un 
certo settore. Il caso vuole che non siate forti con matita 
e righello (non vi è mai stato richiesto). 


e L’ITALIA IN VIC: 
STUDIARE LA GEOGRAFIA 
TRAMITE IL VIC 


e SETTE E MEZZO: GIOCO 
DIDATTICO PER SPECTRUM 


e SPIRITELLI PER TI: 
LA COMPLETA GESTIONE 
DEGLI SPRITE SU TI 99/4A 


e C/C CON ZX81: 
GESTIONE DEL CONTO 
CORRENTE TRAMITE 
SINCLAIR ZX81 


ATTO SECONDO. 


Senza dGraph non vi resterebbe che 
saltare da un numero all'altro 
sperando nella buona disposizione 
della platea. Con il dGraph, invece, 
senso i fatidici pochi minuti sono più che 
6; sufficienti a voi, o alla vostra 
segretaria, per produrre su carta un 
grafico a barre, a torta, a funzione 
lineare o come più vi occorre. 
dGraph parla come il vostro 
dBase Il (girano sotto gli stessi 
Personal, cioè tutti). La loro 
capacità di intendersi è fulminea. 
Uno fornisce i dati e l'altro li 
visualizza. A voi non resta che 
guardarli lavorare. In conclusione, dGraph non si 
spiega a parole. Quindi telefonateci e vi diremo qual è 
il nostro Punto Vendita 
più vicino a voi. FEE ITALIANA 
Così potrete vederlo. Via B. Bellincione 26 - 20134 Milano - Tel. 02/2155622 


Jaja 9 XOJ 040145163) OYIIOW |, 


Listato | - Programma 
Timer per VIC 20. 
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Timer per VIC e C 64 


Non vi capita mai di sedervi davanti al video, magari dopo pranzo, pensando ‘‘giusto per dare 
una ritoccatina al programma''? Ebbene, durante questi lavori capita spesso di perdere la 
nozione del tempo e non ci si accorge che le ore scorrono, spesso con risultati disastrosi specie 
avendo molti impegni. Quante volte sarà capitato? Certamente molte. Ora, finalmente, il 
programma Timer sarà un fedele guardiano del vostro tempo. 


di Renato Comini 


L anciato il programma va innanzitutto “cari- 
cata” la sveglia, dopodiché viene chiesta 
l'ora del momento. Questo è tutto: potrete ora 
impazzire con i games o studiare programmi o 
comporre articoli senza più preoccuparvi mini- 
mamente del tempo. Inesorabile e preciso, ed al 
momento giusto, il vostro calcolatore vi chiama: si 
udrà un suono ed in contemporanea nell'angolo 
in alto a destra dello schermo comparirà l'avverti- 
mento “è ora”. Saprete così che è giunto il mo- 
mento, ahimé, di abbandonare il tutto per dedi- 
carvi ad altro. 

Il programma utilizza una routine assembler 
che viene posta nel buffer della cassetta ed è 
chiamata 60 volte al secondo da una routine di 
interrupt, la stessa che provvede all'aggiorna- 
mento del TI$ e ad altri controlli. 

L'algoritmo è molto semplice, si limita ad un con- 
fronto tra il predetto orario, in cui deve scattare la 
sveglia, e l'ora corrente, e dà il segnale al mo- 
mento giusto. Si noti che la versione per il C 64 
differisce da quella del VIC solamente nella parte 
riguardante le locazioni di memoria relative al 
buffer della cassetta ed all'interupt, ma per il 
resto non vi sono differenze tra i due algoritmi. 
llcaricamento del codice assembler, deposita- 
to nei DATA che vanno da 200 a 350 per la versio- 
ne VIC e nei DATA da 200 a 330 perla versione 64, 
è eseguito dalla linea 195 tramite le istruzioni 
READ e POKE. Tutta la prima parte del program- 
ma (linee 10-180) provvede alla richiesta dell'ora 
attuale e dell'ora della sveglia. 
Attenzione: poiché la routine in linguaggio mac- 
china è depositata nel buffer della cassetta, nes- 
suna operazione con l'uso di questa potrà essere 
eseguita durante il funzionamento del Timer. Inol- 
tre la pressione del tasto RUN STOP + Restore 
annulla le chiamate della routine assembler 
compromettendone il funzionamento, per cui 
l'allarme non scatta. lo | 


FORG=49152T049284 :READX :POKEG,X:NE | | 


\ATAZ21,4,159,1 141,24 1. 159 
A DAT 141,5,212,169,6,141,6,21: 169 : 1 PSR1 HR$C1 
KI IRTA +1 I 1 | Ù *{ 141,0 | 
1 - j Rs: g 
n° IATALE | | 159,255,1659, i T Psr CHRECI! ) 
} 136 
\ATA { 159,1 +1 : | HOME HR$ 14 el 
nd sa = | 


SUL PROSSIMO NUMERO DI 
Hi 

a 

TROVERETE: 


e BITEST: e SALONE e TUTTO SUL 
SHARP PC-8100 DELL'INFORMATICA VIDEOTEL 


e SOFTEST: e LE BANCHE DATI e PROGRAMMI 
LOTUS 1-2-3 AUTO-RILOCANTI 
RE PPEOA A FATTURAZIONE CON IL 6502 
e OKI uL 92-93 e INTEGRAZIONE 
e LO SPECTRUM 
MUSICALE 


CON 
e HANNOVER-MESSE CAMPIONAMENTI 


Eatman: 


Figura 1] - Listato del 


i i EM 
gI0C0. REN 

REM 
RE 
POKE 
POKE 
POKE 
POKE 
POKE 
POKE 


POKE 


Gosu 


8% 


i5Sì RAND U= 159 THEN 


u< »>83 AND 


U<339 AND U 
<>139 AND U=1 


4100 


E i<>3 RAND 
S1_ AND LU: 


ppi ge 


_—-= TMA N---- 
BY sERSIO SpALLETTA 
-—--- ic} NOV.1933---- 


5 206e 


THEN GOTO 59@ 


THEN PRINT AT 21, IR 


U=USR 16514 
vci] RAID LI DI "4 a ANRO 15 
Go 
3»>3S AND LU<c3I3S AND Li) 
U=651 THEN SOTO 


38 AND U<>:651 
S1 THEN GOSUB 


<> 139 AND U<>1 
39 THEN GOSUB 


U 
u 


>61 AND 


PRINT AT 
PRINT AT 


SBOU9-JMN 


f UU eliuvoEE 
SOhur-Ò Wigo: 90 


8) 
sea PRINT_ AT © 


Sia PaARUS 


See cLs 


ie 


s30 GOSUB 
548 PRINT 
550 PRINT 


di Sergio Spalletta 


Come si gioca 
È atman (carattere “E” inverse) va nella buia 
foresta a caccia di funghi di cui è ghiottis- 
simo. Guidatelo voi con i tasti 5 ed 8 nella sua 
corsa contro il tempo ed i pericoli cui potrà im- 
battersi. 
Per strada, infatti, troverà funghi velenosi (carat- 
tere “X”), da evitare in ogni modo perché sarà 
subito eliminato, e fantasmi buoni (carattere in- 
verse) che gli regaleranno ognuno un punto. 
Quando avrà resistito per 200" (iltempo massimo 
è di 250”), apparirà nella foresta un folletto matto. 
Importunatelo perché, se sarà in vena, vi regalerà 
10 punti, se sarà arrabbiato, vi eliminerà dal gio- 
co. 


Come funziona 


Il listato (figura 1) è semplicissimo. Un brevissi- 
mo codice macchina (linee 1 - 60) contenuto 
come di consueto nella 1 REM - formata inizial- 
mente da 7 caratteri qualsiasi - consente di costi- 
tuire con maggiore rapidità ed economia di me- 
moria la solita istruzione PEEK per la lettura del 
D-FILE. 

Le principali altre routine e subroutine sono: 
100 - 424 Inizializzazione delle variabili; 

150 - 167 Verifica delle condizioni (valori di U) 
che determinano la conclusione del gioco; 
470 - 495 Routine principale; 

200 - 240 Calcolo punteggio fantasmi; 

220 Visualizzazione punteggio parziale, tempo e 
record Massimo; 

300 - 310 Calcolo punteggio dei funghi (asteri- 
schi); 

400 - 440 Casualità folletto; 

500 - 530 Conclusione; 

540 - 740 Presentazione delle opzioni di fine gio- 
CO; 

2000 - 2400 Presentazione “testata” gioco; 
6000 SAVE routine. te) 


LE VARIABILI PRINCIPALI 


Controlla l'apparizione (buona o cattiva) 
del folletto. 

Posizione di stampa del carattere di Eat- 
man. 

Record massimo. 

Punteggio parziale. 

Tempo trascorso (massimo 250"). 
Posizione sullo schermo di Eatman. 


VALORI E PUNTEGGI DEI SIMBOLI 


Eatman 


Funghi mangerecci 


Fantasmi 

Funghi velenosi 
Folletto del bosco 
(valore casuale) 
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Figura 2 - Quadro iniziale. 


Figura 3 - Copia video di una fase del gioco. 
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GPS4. LAVETTA 


L'hardware. 


GPS4. LA VETTA 


Le applicazioni. 


GPS4. LA VETTA 


La bellezza. 


Vogliate cortesemente inviarmi mate- 
riale illustrativo su GPSA. 


Costruito con criteri professionali derivanti { Industrie, studi professionali e tecnici, la- | Una forma di pura bellezza. Essenziale. De- | NOME ........ iii 

da una pluriennale presenza sul mercato, | boratori di analisi, aziende, negozi, alber cisa. Una linea di splendido design italiano | 

l'elaboratore GPS4 può gestire dai floppy { ghi, agenzie pubblicitarie, ed anche scuole, | GPS4 non è solo perfetto da utilizzare, ma | Cognome .................0 

5" da 800 Kbyte ai dischi rigidi da 20 | università ed ambienti di ricerca hanno | anche bello da guardare. E comodo: la ta- ! .__ 

Mbyte, supporta più posti di lavoro, è col- | adottato GPSA per risolvere le loro esigen- | stiera è separata dallo schermo per con- | AZIENDA ..........0000000 

legabile alle più diverse periferiche (plotter, ze di lavoro e di programmazione sentire la massima fluidità di utilizzo. Via 

digitalizzatori, ecc.) e può trasformarsi lui f La quota di mercato conquistata da GPS4 | GPSA: bello e perfetto. | ae E ENI e O i 

stesso in terminale intelligente di grossi { è in crescita: in tutti i settori di utilizzo del | Ca Città 
Pirito Gaios 

elaboratori. GPS4 è studiato per crescere | computer. GPS4 è un successo che cresce. 

insieme alla Vostra Azienda. certe ri eta 
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